Brauche hilfe zu find first u find next

[DrKralle01]

also

Delphi-Quellcode:

r := findfirst('c:\*.txt', faanyfile, searchfile, searchrec);
while r= 0 do
begin
findnext(searchrec);
end 
findclose;

kann mir dazu mal einer ne komplette code machen und schicken oder posten ich kriege es nicht gebaken das zu deklarieren.. wäre echt super wenn jmd da mal alles koplett heir abdrucken würde DANKE an alle die sich bemühen werden