Text File Einlesen und als Excel ausgeben

[Andidreas]

so wie oben schon beschrieben, versuch ich ja gerade ein text file in ein excel auszugeben...

die connection zum excel hab ich jetzt hinbekommen, aber ich kann leider jetzt nicht die tabellen namen meines excels feststellen, bzw. ich kanns schon, aber nicht so wie ich es möchte

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
strFileFrom, strFileTo  : TFileStream;
sDate,sFromDir, sToDir  : String;
sSheets                 : TStrings;

begin

  //Create .xls with Name = Date
  sDate    := FormatDateTime('yyyymmdd', Date);
  sFromDir := '..\Excel\Template\Template.xls';
  sToDir   := '..\Excel\' +sDate+ '.xls';

  strFileFrom := TFileStream.Create(sFromDir, fmOpenRead);

  Try
    strFileTo := TFileStream.Create(sToDir, fmCreate);
    Try
      strFileTo.CopyFrom(strFileFrom, strFileFrom.Size);
    Finally
      strFileTo.Free;
    End;
  Finally
    strFileFrom.Free;
  End;

  //AdoConnection String
  AdoConnection1.Connected := False;
  AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
                                     'Data Source=' + sToDir + ';' +
                                     'Extended Properties=Excel 8.0;' +
                                     'Persist Security Info=False';
  AdoConnection1.Open;

  //WorkSheets in ListBox auslesen
  {AdoConnection1.GetTableNames(ListBox1.Items);}
  AdoConnection1.GetTableNames(sSheets);

  //Work with WorkSheet
  AdoTable1.Connection := AdoConnection1;
  {AdoTable1.TableName := '[' +ListBox1.Items[0]+ ']';}
  AdoTable1.TableName := '[' +sSheets.Names[1]+ ']';
  AdoTable1.Active := True;

  ShowMessage(AdoTable1.TableName);

end;

AdoConnection1.GetTableNames verlangt als Parameter einen TStrings, hab ich ja auch angelegt, wenn ich mir jetzt aber die tabellen namen einlesen lassen will, dann bringt er folgenden fehler(siehe bild)
wenn ich mir des ganze aber in ne ListBox (befehle sind kommentiert) ausgeben lass dann gehts...

hat jemand vielleicht ne idee warums ausgerechnet net mit der TStrings Variable geht???