RAISERROR В DELPHI

[Lisi4ka]

Имеется БД SQL, сервер приложений (ADO), клиент. Вставка данных осуществляется с помощью хранимых процедур, одновременно проверяющих функц.ограничения и, следовательно, предусматривающих откат и RAISERROR. Приметрный текст процедуры:

CREATE PROCEDURE FORMA_DEL
@ID_F INT
 AS
 BEGIN TRAN
 IF (EXISTS(SELECT * FROM GROUPS_OF_UCH WHERE FORM=@ID_F))
	BEGIN
		ROLLBACK TRAN RAISERROR 100557 'Для удаления указанной формы обучения необходимо удалить все группы, обучающиеся по ней!'
	END

Каким образом мне "поймать" из клиента код указанной RAISERROR?
Пробовала следующим образом:

try
  AdoStoredProc1.ExecProc;
  except
  on EO:EDatabaseError do
   Showmessage('EDatabaseError');
  on Ea:EDBEngineError do
   Showmessage('EDBEngineError'); 
  on Ev:EDBClient do
   Showmessage('EDBClient ');
  on EOb:EUpdateError do
   Showmessage('EUpdateError ');
 end;

Я хотела таким образом получить хотя бы вид ошибки на клиенте, возникающей при RAISERROR на сервере, однако прога выдает только стандартное сообщение ADO.

[koma_grusha]

except on E: Exception do
   Showmessage(Format('Error: %s', [E.Message]);
end;

попробуй так, по идее он сам должен текст ошибки из базы вставить

[Lisi4ka]

Спасибо, а можно ли вообще каким-то образом перехватить не текстовое описание ошибки, а ее код, прописанный в SQL? Я пробовала через параметры хранимой процедуры - по умолчанию 0 параметр имеет тип RETURN_VALUE, редактировала тексты процедур: если RAISERROR RETURN 0, но не прокатило

[Lisi4ka]

Видимо, я не совсем корректно сформулировала вопрос: мне необходимо перехватить сам код ошибки (в данном случае 100557) и подавить вывод какого-либо сбщ на экран, т.к. хочу возложить на сервер почетную обязанность контроля некоторых вводимых данных, формируемых в цикле. Не хотелось бы при каждой ошибке 100557 нажимать ОК) т.е:
если сервер сказал :"Ошибка 100557", - повторяем итерацию (а юзер ничего не видит),
а если сервер сказал :"Ошибка 100558",-все прерываем и цикл заканчиваем, выдаем сбщ типа "произошла ошибка такая-то"