Maneja de errores (try except)

[Robert01]

puedes usar la función fileexists

Código Delphi [-]

var
nombre_archivo : string;

if not FileExists(' nombre_archivo') then begin
 ShowMessage( nombre_archivo +#13#10 +
              + #13#10 + '¡no existe!');
 exit;
end;