uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var Excel, Workbook: OleVariant;
begin
Excel := CreateOleObject('Excel.Application');
Workbook := Excel.Workbooks.Add;
Workbook.Worksheets[1].Cells[1, 1].Value := 'by cHackAll';
Workbook.SaveAs('c:\book1.xls', , 'HAclave');
Excel.Quit;
end;