Como faço p/ localizar um arquivo dentro do delphi ?

Utilize a seguinte função

[b:d5e7cb0be0]I := FindFirst(´c:\Origem\*.*´, faAnyFile, SR);[/b:d5e7cb0be0]
8)
onde I é uma variavel inteira que guarda a quantidade de arquivos
encontrados no diretorio com a respectiva máscara