[[duilioisola]]

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;
  // Borro contenido de memo
  MDebug.Lines.Clear;

  // Me aseguro que la direccion termine en "\"
  EDirFileExists.Text := IncludeTrailingPathDelimiter(EDirFileExists.Text);

  // Busco los archivos dentro el directorio 
  RegistrosEncontrados := FindFirst(EDirFileExists.Text + '*.*', faAnyFile, sr);
  try
     // Mientras haya archivos...
     while RegistrosEncontrados = 0 do
     begin
        // Si el archivo no es uno "especial"
        if not ((sr.Name = '.') or (sr.Name = '..')) then
        begin
           // Si es un directorio lo menciono pero no hago nada
           if ((sr.Attr and faDirectory) = faDirectory) then
              MDebug.Lines.Add(format('Directorio: %s', [sr.Name]))
           else
           begin
              // Compruebo funcionamiento de funcion FileExists()
              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;
        // Busco el siguiente archivo
        RegistrosEncontrados := FindNext(sr);
     end;
  finally
     SysUtils.FindClose(sr);
  end;
end;