SQL SERVERでのプロシージャ内の例外エラーを取得したい

サンゴ 2013-05-23 20:09:48 No: 44569

今回SQL SERVER 2012を使用して開発してます。

以下のプロシージャを作成しました。

CREATE PROCEDURE [dbo].[update]
AS
BEGIN TRY
EXEC 処理
END TRY
BEGIN CATCH
SELECT ERROR_NUMBER(),ERROR_MESSAGE()
END CATCH

この時のERROR_NUMBER(),ERROR_MESSAGE()は
Delphiでどのように取得するのかわからず作業が止まっています。

ADOStoredProc1.ExecProc;

ERROR_NUMBERが0でなければ、
ERROR_MESSAGEを出力するといったことがやりたいです。

皆様のお力をお貸し下さい。
よろしくお願いします。