procedure TForm1.Button1Click(Sender: TObject);varsr:tsearchrec;begin if FindFirst('c:\*.*',faAnyFile,sr)=0 then begin repeat ListBox1.Items.Add('c:\'+sr.Name); until FindNext(sr) <> 0; end;end;