procedure TForm1.Button1Click(Sender: TObject);
var
 Searchrec: Tsearchrec;
 s:string;
begin
FindFirst('C:\*.*', FaAnyfile, SearchRec);
 if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
 memo2.Lines.Add(s+SearchRec.Name);
 while FindNext(SearchRec) = 0 do
  begin
 if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
   memo2.Lines.Add(s+SearchRec.Name);
  end;
end;