Indentificar Carpeta o Archivo

[Ruben_Cu]

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