Export nach EXCEL

[Pfl]

Hallo, liebe Community,

ich wundere mich gerade über folgenden Fehler im Source (s. Kommentar)

Delphi-Quellcode:

procedure TFormBruederFreieSuche.BTExportClick( Sender : TObject );
  var
    FileName : String;
  begin
    ExportGridQ2CSV(
      DBGrid1,
      FormBruederFreieSuche.qBrSuche.RecordCount,
      FormBruederFreieSuche.qBrSuche

      );
    FileName := 'C:\afam\test001.csv';

    ExcelWorkbook1.ConnectTo( ExcelApplication1.Workbooks.Open( FileName,
      emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
      emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
      emptyParam,  0 ) ); // nicht genügend wirkliche Parameter <=== HIER DER FEHLER
    ExcelWorksheet1.ConnectTo( ExcelWorkbook1.Sheets.Item[ 1 ] as
      ExcelWorkSheet );
    // ExcelWorkSheet1.Range['F1','F2'].EntireColumn.NumberFormat := '00000';
    ExcelWorksheet1.Range[ 'A1', 'Z1000' ].EntireColumn.AutoFit;

    ExcelApplication1.Visible[ 0 ] := True;
    ExcelApplication1.UserControl := True;

  end;

Ich habe die Parameter nachgezählt; sie stimmen. Weiß jemand, wo die Fehlerursache liegt?

LG,

Pfl