Has una prueba básica antes de nada...
Quizás solo te falta una contrabarra o está mal escrito el nombre de la carpeta.
Agrega un TMemo (MDebug) y un TEdit (EDirFileExists) a un formulario.
Código Delphi
[-]
procedure TFMPruebas.BFileExistsClick(Sender: TObject);
var
sr : TSearchRec;
RegistrosEncontrados : integer;
begin
inherited;
MDebug.Lines.Clear;
EDirFileExists.Text := IncludeTrailingPathDelimiter(EDirFileExists.Text);
RegistrosEncontrados := FindFirst(EDirFileExists.Text + '*.*', faAnyFile, sr);
try
while RegistrosEncontrados = 0 do
begin
if not ((sr.Name = '.') or (sr.Name = '..')) then
begin
if ((sr.Attr and faDirectory) = faDirectory) then
MDebug.Lines.Add(format('Directorio: %s', [sr.Name]))
else
begin
if FileExists(EDirFileExists.Text + sr.Name) then
MDebug.Lines.Add(format('Existe archivo: %s', [EDirFileExists.Text + sr.Name]))
else
MDebug.Lines.Add(format('NO Existe archivo: %s', [EDirFileExists.Text + sr.Name]))
end;
end;
RegistrosEncontrados := FindNext(sr);
end;
finally
SysUtils.FindClose(sr);
end;
end;