procedure TForm1.Button1Click(Sender: TObject); begin if FileExists('C:\Mis documentos\autores.dbf') then ShowMessage('El fichero existe.'); end;