Delphi и Excel

[SPD]

Вот делаю такую штуку считую с екселя в делфи файл, все идет норм но не могу понять как извлеч имя листа с екселя...может ктото подскажет как ето сделать...У меня стринггриды росположены на TabSheet и етим TabSheet нужно присвоить имя листа с екселя но чтот до меня не доходит как ето сделать...помогите пож...


Функция с помощу которой считую с екселя в делфи:

function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string; SheetNum:integer): Boolean;
 const
   xlCellTypeLastCell = $0000000B;
 var
   XLApp, Sheet : OLEVariant;
   RangeMatrix: Variant;
   x, y, k, r: Integer;
 begin
   Result := False;
   XLApp := CreateOleObject('Excel.Application');
   try
     XLApp.Visible := False;
     XLApp.Workbooks.Open(AXLSFile);
     Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[SheetNum];
     Sheet.activate;
     Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
     x := XLApp.ActiveCell.Row;
     y := XLApp.ActiveCell.Column;
     AGrid.RowCount := x;
     AGrid.ColCount := y;
     RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
     k := 1;
     repeat
       for r := 1 to y do
         AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R];
       Inc(k, 1);
     until k > x;
     RangeMatrix := Unassigned;
   finally
     if not VarIsEmpty(XLApp) then
     begin
       XLApp.Quit;
       XLAPP := Unassigned;
       Sheet := Unassigned;
       Result := True;
     end;
   end;
 end;

xls_to_stringgrid(form9.stringgrid1, s1+'QHHQ.xls', 1);
xls_to_stringgrid(form9.stringgrid2, s1+'QHHQ.xls', 2);
xls_to_stringgrid(form9.stringgrid3, s1+'QHHQ.xls', 3);
xls_to_stringgrid(form9.stringgrid4, s1+'QHHQ.xls', 4);

Заранее благодарен...

[Serge_Bliznykov]

а если так попробовать?

procedure TForm1.Button1Click(Sender: TObject);
const
   xlCellTypeLastCell = $0000000B;
 var
   XLApp, Sheet : OLEVariant;
    i : Integer;
 begin
   XLApp := CreateOleObject('Excel.Application');
   try
     XLApp.Visible := False;
     XLApp.Workbooks.Open('C:\t1.xls');
     for i:=1 to XLApp.WorkSheets.Count do
        ShowMessage(IntToStr(i)+'-й лист - имя листа: '+XLApp.WorkSheets[i].Name);
   finally
     if not VarIsEmpty(XLApp) then
     begin
       XLApp.Quit;
       XLAPP := Unassigned;
     end;
   end;
 end;

имя активного листа доступно так:

     ShowMessage('Имя текущего листа: '+XLApp.ActiveSheet.Name);

[SPD]

биг спс помогло...