var
ExcelApp,ExcelWrokBook,ExcelWorkSheet:olevariant;
begin
ExcelApp := CreateOleObject('Excel.sheet');
ExcelApp.Application.workbooks.visible := false;
ExcelWorkBook := ExcelApp.Application.workbooks.add;
ExcelWorkSheet := ExcelWrokBook.sheets[1];
ExcelWorkSheet.cells[row,col] := 'dfdfd';
ExcelWorkBook.saveas('aa.xls');