Делаю след.

function BeforePForm return boolean is
  Version_Failure exception;
  PRAGMA Exception_Init (Version_Failure, -03108);
begin
  raise Version_Failure;
  return (TRUE);
end;

но PRAGMA Exception_Init  мне не очень подходит, надо формировать свой текст ошибки.

Кто знает как - подскажите плиз.