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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm4.Image2Click(Sender: TObject);
const
 xlLeft = -4131;
var
  Excel : Variant;
  strPfad : string;
  Tage, Stunden, Minuten, Sekunden: Integer;
  y: integer;
begin
  Excel := CreateOleObject('Excel.Application');
  excel.Application.SheetsInNewWorkBook := 1; //Die Anzahl der Sheets
  Excel.Workbooks.Add;
  Excel.Sheets[1].Name := Edit1.Text ;
  excel.ActiveSheet.PageSetup.Zoom := false;
  excel.ActiveSheet.PageSetup.FitToPagesWide := 1;  // Y
  excel.ActiveSheet.PageSetup.FitToPagesTall := 2; // Y
  excel.Workbooks[1].WorkSheets[1].Columns.Columns[1].ColumnWidth := 30;
  excel.Workbooks[1].WorkSheets[1].Columns.Columns[2].HorizontalAlignment := xlLeft;

.
.
.
.


  for y := 0 to (ListView1.Items.Count -1) do
  begin
  Excel.Sheets[Edit1.Text].Cells[(y + 35),1].value := ListView1.Items.Item[y].Caption;
  end;
     // xls speich0rn
  strPfad := ExtractFilePath(ParamStr(0)); //ExtractFilePath(Application.ExeName);
  Excel.ActiveWorkbook.SaveAs(strPfad + '.\geraetebuecher\' + Edit1.Text + '_HW.xls');
  Excel.Quit; //Beendet Excel

  end;