Generar una Excepción Try Catch para una Imagen.

[[duilioisola]]

Buscando un poco más he encontrado esto que puede quedar mejor:

Código Delphi [-]
var
  E: EInOutError;
...
  if (not FileExists(ArchivoConImagen)) then
  begin
     E := EInOutError.Create( 'No encuentro el archivo de imagen : ''%s''', [ArchivoConImagen] );
     // El codigo de error para este tipo de excepcion puede tener estos valores (Help de Delphi 6)
     // 2 File not found
     // 3 Path not found
     // 5 Access denied
     // 32 Sharing violation
     E.Errorcode := 2;
     raise E;
  end;

Puedes leer un poco más sobre excepciones aqui.