Alle Dateien in Memo einlesen

[SirThornberry]

ganz wichtig! Du hast FindClose vergessen. Wenn FindFirst erfolgreich war solltest du am Ende auch FindClose aufrufen

Delphi-Quellcode:

if FindFirst(..., ..., SearchRec) = 0 then
begin
  repeat
    //Daten verarbeiten
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;