1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  Excel : Variant

procedure OpenExcel;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Visible := False;
end;

procedure CloseExcel;
var bClosed : Boolean;
begin
  bClosed := False;
  repeat
    try
      Excel.Visible := False;
      Excel.ActiveWorkbook.Saved := True;  //Damit nicht gefreagt wird, ob die Änderungen in der Datei gespeicher werden sollen...
      Excel.ActiveWorkbook.Close;
    except
      bClosed := True;                     //edit: Wenn keine Dateien mehr offen sind springt er hier rein und damit aus der Schleife...
                                           //      Habe leider noch keine saubere Möglichkeit gefunden aber ich hatte so auch nie Probleme
    end;
  until bClosed = True;
  Excel.Workbooks.Close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Excel.Workbooks.Open('C:\Test.xls');  //Öffnen

Excel.Workbooks.Save;  //Speicher

Excel.Workbooks.SaveAs('C:\Test.xls');  //Speichern als

Excel.Cells[1,1] := 'Test'; //ist die Zelle A1 - die kannst du dann auslesen oder befüllen (Variant)
Excel.Cells[1,1] := 5;
Excel.Cells[1,1] := 9.999;

Excel.Worksheets['Test'].Add; // Macht eine neue Tabelle

Excel.Worksheets['Test'].Name := 'Test1'; // Ändert den Namen

Excel.Worksheets['Test1'].Delete; // Löscht sie wieder