Zumindest die kurze Variante geht noch kürzer (Ok, hab' geschaut woher die SysUtils Funktionen die Infos holen):
Delphi-Quellcode:
function FileDirExists(s: String): Boolean;
begin
Result := GetFileAttributes(PChar(s)) <> $FFFFFFFF;
end;
Result kann man natürlich noch auswerten für eine differenzierte Rückgabe, aber dann ist es auch nicht mehr kürzer.