Probiers mal damit.
FileExists(pfad)
Wenn die Datei offen ist, exisitiert sie ja logischerweise auch.
ansonsten:
Delphi-Quellcode:
function dateiVorhanden(pfad:string):boolean;
var datei:file;
begin
assignFile(datei,pfad);
filemode:=0;
{$I-} reset(datei); closefile(datei); {$I+}
dateiVorhanden:=IOResult=0
end;
mittels {$I-} werden Fehlermeldungen unterdrückt und deren Nummer kann statt dessen mit IOResult abgefragt werden (nur einmal, deswegen in anderer Vari speichern, wenn damit gearbeitet werden soll!).