Hola Waldo, prueba colocar en el evento OnClick de un botón este procedimiento:
Código PHP:
procedure TForm1.Button1Click(Sender: TObject);
var archivo:TSearchRec;
begin
if FindFirst(Edit1.Text,0, archivo)=0 then
showmessage('Encontre el archivo '+archivo.Name)
else showmessage('No encontre el archivo '+Edit1.Text);
findclose(archivo);
end;
En el edit1 colocas el path incluyendo el nombre del file.
La función devuelve cero cuando encuentra la
primera coincidencia con las características del file dado.
Te recomiendo revises la ayuda de delphi para mas informacion de sobre la función.
Saludos