var 
  xcl, wkb: OleVariant; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  xcl := createOleObject('Excel.Application'); 
  wkb := xcl.workbooks.add; 
  xcl.ActiveSheet.PageSetup.CenterHeader := 'Seite &S von &A'; 
  xcl.visible := true; 
 
  // == einsetzbare Variablen == 
  // &A Seitenanzahl 
  // &B Tabellenname 
  // &D Datum 
  // &N Name der Mappe 
  // &P Ablage-Pfad 
  // &S Seitennummer 
  // &U Uhrzeit 
 
  // == Kopf- und Fußzeilenposition == 
  // .LeftHeader 
  // .CenterHeader 
  // .RightHeader 
  // .LeftFooter 
  // .CenterFooter 
  // .RightFooter 
 
end;

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if not VarIsEmpty(xcl) then xcl.quit; 
end;