ListBox items in Excel tabelle speichern??

[nimmersattXD]

so ich hab jetzt erstmal ohne strg+space arbeiten muessen und das programm startet zumindest, aber wenn ich den button klicke (siehe quelltext) kommt die fehler meldung: Method 'excel' not supported by automation objekt.

Delphi-Quellcode:

procedure TForm1.BtnSaveResClick(Sender: TObject);
var excel:Variant;
    path:string;
    i,row,column:integer ;
begin

   excel:=CreateOleObject('Excel.Application');
   excel.Application.SheetsInNewWorkbook:=1;
   excel.Workbooks.add;
   excel.Sheets[1].Name:='Results';

   row:=1;
   column:=1;
   excel.Sheets['Results'].Cells[row,column].value:='Unused pictures:';
   excel.Sheets['Results'].Cells[row,3].value:='Used pictures:';
   excel.Range['A1:C1'].Select;
   excel.Selection.Font.Bold:=true;

   for i:=0 to LiBoUnused.Count do
    begin
     excel.excel.Sheets['Results'].Cells[i+3,1].value:=LiBoUnused.Items[i];
    end;

    for i:=0 to LiBoUsed.Count do
    begin
     excel.excel.Sheets['Results'].Cells[i+3,3].value:=LiBoUsed.Items[i];
    end;

    excel.ActiveWorkbook.SaveAs('C:\Users\Keks\Desktop\');
    excel.Quit;
    excel:=Unassigned;


end;

was hab ich falsch gemacht oder fehlt noch etwas??