TFileStream.Create gibt Error

[Drahcir]

Vielen Dank für die schnelle Hilfe

Das mit dem ...except... hab ich probiert, gibt mir sowohl in Delphi als auch als Exe ne Exception und der Haltepunkt auf on E... do ... wird nicht ausgelöst.

Ja ich verwende FindFirst und FindNext, Quellcode:

Delphi-Quellcode:

{** Alle Dateien in einem Verzeichnis aufzählen **}
procedure TfrmMain.DateiListe(OrdnerPfad: string; Zielliste: TStrings);
var Rec : TSearchRec;
begin
  Zielliste.Clear;

  if SysUtils.FindFirst(OrdnerPfad + '*', faAnyFile, Rec) = 0 then
  try
    repeat
      if (Rec.Name <> '.') and (Rec.Name <> '..')
      then begin
        if DirectoryExists(OrdnerPfad + Rec.Name)
        then Zielliste.Add(OrdnerPfad + Rec.Name + '\');

        if FileExists(OrdnerPfad + Rec.Name)
        then Zielliste.Add(OrdnerPfad + Rec.Name);
      end;

    until SysUtils.FindNext(Rec) <> 0;
  finally
    SysUtils.FindClose(Rec);
  end;
end;
{**************}

Dann werd ich mir nochmal TSearchRec anschauen ... stimmt der Quellcode denn so oder liegts an dem?