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:
36:
37:
38:
39:
40:
41:

  var Excel: Variant;
  var exfile: String; // Inhalt 'c:\abc.xls'
  var exsheet: String;  // Inhalt 'abc'
  var tof: File;
  var exzeile: integer;
  var exspalte: integer;
  var a: integer;
  a:=0;
  AssignFile(tof, exfile);
  {$i-}
  Rewrite(tof, 1);
  {$I+}
  if (IOResult = 0) then
  begin
    CloseFile(tof);
    try
      Excel:=CreateOleObject('Excel.Application');
      a:=1;
    except
      ShowMessage('Excel konnte nicht gestartet werden');
    end;
    if a = 1 then
    begin
      Excel.Visible:=True;
      Excel.WorkBooks.Open(exfile);
      Excel.Sheets[exsheet].Activate;
      exzeile:=1;
      exspalte:=1;
      Excel.Cells[exzeile, exspalte].NumberFormat:='@';
      Excel.Cells[exzeile, exspalte].HorizontalAlignment:=xlHAlignLeft;
      Excel.Cells[exzeile, exspalte].Interior.Color:=clBlue;
      Excel.Cells[exzeile, exspalte].Font.Size:=10;
      Excel.Cells[exzeile, exspalte].Font.FontStyle:='Bold';
      Excel.Cells[exzeile, exspalte].Font.Color:=clYellow;
      Excel.Cells[exzeile, exspalte].Font.Name:='Courier New';
      Excel.Cells[exzeile, exspalte].Value:='Anrede'+Chr(10)+Chr(13)+'Titel';
      Excel.Workbooks.Close;
      Excel.Quit;
      Excel:= Unassigned;
    end;
  end;