Wo soll bitte das FindClose(SR) stehen

[Schokohase]

Am besten so

Delphi-Quellcode:

var SR : TSearchRec;
begin
  if (FindFirst('*.*', faANYFILE, SR) = 0) then 
  try
    repeat 
      [...]
    until (FindNext(SR) <> 0);
  finally   
    FindClose(SR);
  end;
end;

FindFirst kann diese Suche öffnen, und wenn diese Suche geöffnet wurde, dann muss diese auch wieder geschlossen werden.