FindFirst und Inhalt von txt Datei in Stringlist laden

[zaphood]

Hi,
ich habe hier zwei Programme die für sich alleine funktionieren. Jetzt sollen die verheiratet werden und die die vertragen sich nicht.

Hiermit suche ich nacheinander alle txt Dateinen, schreibe den Namen ins Memo und lösche danach.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 var
     rec : tsearchrec;
     Datum    : String;
 begin
    if FindFirst('f:\*.txt', faAnyFile, rec) = 0 then
    try
      repeat
         Datum  := FormatDateTime('yyyy_mm_dd__hh_mm_ss', Now);
         Anzahl := Anzahl+1;
         Label2.Caption := IntToStr(Anzahl);
         Memo1.Lines.add(Datum+ ' '+ rec.Name);
         deletefile('f:\'+rec.Name);
      until FindNext(rec) <> 0;
    finally
      FindClose(rec);
    end;
 end;

Das ist Ziel den Inhalt der gefundenen txt Datei in eine Stingliste zu laden, was die Fehlermeldung Unable to open file"xxxx.txt" verursacht. Hat jemand eine Idee was sich beißt?

Delphi-Quellcode:

begin
  sl := TStringList.Create;
  if (FindFirst('f:\*.txt', faAnyFile, rec) = 0) then
    try
     sl.LoadFromFile(rec.Name);