Fórum Busca de arquivos em pasta do windows #336659

procedure TForm1.SearchFilePath(pasta: string);
var
    x: integer;
    SearchRec: TSearchRec;
    intControl: integer;
    Name: string;
begin
Memo1.Lines.Clear;
intControl:=FindFirst(pasta + ´\*.*´, faArchive, SearchRec);
if intControl = 0 then
    begin
    while (intControl = 0) do
        begin
        Name:=ExtractFileName(SearchRec.Name);

 memo1.Lines.Add(pasta + ´\´ + SearchRec.Name);
        intControl:=FindNext(SearchRec);
        end;
    FindClose(SearchRec);
    end;