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] );
E.Errorcode := 2;
raise E;
end;
Puedes leer un poco más sobre excepciones
aqui.