1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var Srec: TSearchRec;
    found: integer;
begin
found:= findfirst(???); // was muss hier rein und was bedeutet dies?
while found=0 do
begin
label1.caption:= // ???   
found:=findnext(Srec); // was hat Srec zu bedeuten (wert?)
  end;
findclose(Srec);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure FileList(const APath, AExt: string; ARecurse: Boolean; 
  AList: TStrings); 
var 
  F    : TSearchRec; 
  Path : string; 
begin 
  Path := IncludeTrailingPathDelimiter(APath); // nur für Delphi 4 und höher! 
  if (ARecurse) and 
    (FindFirst(Path + '*.*', faAnyFile, F) = 0) then 
  try 
    repeat 
      if (F.Name <> '.') and (F.Name <> '..') and 
        ((F.Attr and faDirectory) = faDirectory) then 
        FileList(Path + F.Name, AExt, ARecurse, AList); 
    until FindNext(F) <> 0; 
  finally 
    FindClose(F); 
  end; 
  if FindFirst(Path + AExt, faAnyFile, F) = 0 then 
  try 
    repeat 
      if (F.Name <> '.') and (F.Name <> '..') and 
        ((F.Attr and faDirectory) <> faDirectory) then 
        AList.Add(Path + F.Name); 
    until FindNext(F) <> 0; 
  finally 
    FindClose(F); 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
Var
  FindRec: tSearchRec;
Begin
  If FindFirst ('c:\verzeichnis\' + '*.exe', faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
      label1.caption:=FindRec.Name;
    Until FindNext (FindRec) <> 0;

  FindClose (FindRec);

end;
end.