[[duilioisola]]

Como alternativa puedes utilizar esto:

Código Delphi [-]
function ExisteFichero(Fichero : string) : boolean;
var
  SearchRec: TSearchRec;
begin
  Result := False;
  if FindFirst(Fichero, faAnyFile, SearchRec) = 0 then
     Result := True;
  FindClose(SearchRec);
end;