执行存储过程中出错的时候，前台程序显示不了错误信息！如何解决？

[努力偷懒]

有这么一个存储过程：
CREATE PROCEDURE tryb AS
select * from part
select 332/0
GO
这好明显的错误了，在前台程序执行：
procedure TForm1.Button1Click(Sender: TObject);
begin
con.Execute('execute tryb');
showmessage(inttostr(con.Errors.Count));
end;
执行这个存储过程的时候，获取不到任何错误！请问我该修改些什么才能获取到存储过程中的错误？

[CableFan]

两种方式:
1.使用存储过程返回代码;
2.在前台直接执行SQL语句.

[努力偷懒]

CREATE PROCEDURE tryb AS

insert into [in] values ('111','222')

select * from [in]
select 332/0
if @@error>0
RAISERROR ('Job id 1 expects the default level of 10.', 16, 1)
GO
使用Tadoquery控件执行这个存储过程不会检测到错误！

CREATE PROCEDURE tryb AS

insert into [in] values ('111','222')
select 332/0
select * from [in]

if @@error>0
RAISERROR ('Job id 1 expects the default level of 10.', 16, 1)
GO
使用Tadoquery控件执行这个存储过程能检测到错误！

CREATE PROCEDURE tryb AS
select 332/0
insert into [in] values ('111','222')

select * from [in]

if @@error>0
RAISERROR ('Job id 1 expects the default level of 10.', 16, 1)
GO
使用Tadoquery控件执行这个存储过程能检测到错误！