Эксорт данных в excel

procedure TForm1.InExel1Click(Sender: TObject);
Var
a1:string;
XLApp,Sheet,Colum:Variant;
n2:integer;
begin
XLApp:=CreateOleobject('Excel.Application');
XLApp.Visible:=true;
XLApp.workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Товар';
Colum:=XLApp.Workbooks[1].WorkSheets['Товар'].Columns;
 
N2:=1;
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=30;
Colum.Columns[3].ColumnWidth:=15;
Colum.Columns[4].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Товар'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=9;
Sheet:=XLApp.Workbooks[1].WorkSheets['Товар'];
Sheet.Cells[n2,1]:=' ';
Sheet.Cells[n2,2]:=' ';
Sheet.Cells[n2,3]:=' ';
Sheet.Cells[n2,4]:=' ';
   Table1.First; //ВЫВОД В ТАБЛИЦУ
   end;

 Workbook := Xl.WorkBooks.Add;
     Workbook := Xl.WorkBooks.add('C:\Documents and Settings\Альбина&Расима\Рабочий стол\vedomost.xml'); //  Добавляем книгу

procedure tform1.bitbtnfromexcelonclick(sender: tobject);
var
workbk : _workbook;
worksheet : _worksheet;
k, r, x, y : integer;
iindex : olevariant;
rangematrix : variant;
nomfich : widestring;
begin
nomfich := 'c:\mydirectory\nameoffile.xls';
iindex := 1;
xlapp.connect;
// Открываем файл excel
xlapp.workbooks.open(nomfich,emptyparam,emptyparam,emptyparam,emptyparam, emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,0);
workbk := xlapp.workbooks.item[iindex];
worksheet := workbk.worksheets.get_item(1) as _worksheet;
// Чтобы знать размер листа (worksheet), т.е. количество строк и количество
// столбцов, мы активируем его последнюю непустую ячейку
worksheet.cells.specialcells(xlcelltypelastcell,emptyparam).activate;
// Получаем значение последней строки
x := xlapp.activecell.row;
// Получаем значение последней колонки
y := xlapp.activecell.column;
// Определяем количество колонок в tstringgrid
genericstringgrid.colcount := y;
// Сопоставляем матрицу worksheet с нашей delphi матрицей
rangematrix := xlapp.range['a1',xlapp.cells.item[x,y]].value;
// Выходим из excel и отсоединяемся от сервера
xlapp.quit;
xlapp.disconnect;
// Определяем цикл для заполнения tstringgrid
k := 1;
repeat
for r := 1 to y do
genericstringgrid.cells[(r - 1),(k - 1)] := rangematrix[k,r];
inc(k,1);
genericstringgrid.rowcount := k + 1;
until
k > x;
// unassign the delphi variant matrix
rangematrix := unassigned;
end;