[jonmendi]

hola jmlifi!

yo creo que lo puedes hacer usandolas funciones FindFirst y FindNext. Tienes un ejemplo en la ayuda de delphi. El siguiente código te dará una idea de como usarlo:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
  searchResult : TSearchRec;
begin
  if FindFirst('C:\*.dxf', faAnyFile, searchResult) = 0 then
  begin
    repeat
      showmessage(searchResult.Name);
    until FindNext(searchResult) <> 0;
  end;
  findclose(searchResult);
end;

Si encuentra un archivo en el path indicado con los atributos especificados (en este caso faAnyFile, mira la yuda), findfirst devuelve 0.

Espero que te sirva

Jon