oracle数据返回错如何得到,我用TQuery,中秋节送分了(100分)

oracle数据返回错如何得到,我用TQuery,但我不想用如下的形式捕捉错误
with TQueryA do
begin
SQL.Clear;
SQL.Text:=sql_text;
try
Open;
except
on E:Exception do Result:=-1;
end;
end;

try
Open;
except
on E:edbengineerror do
errors[0].errorcode=///你要知道相关的错误号好对号入座
end;
oracal 的错误号和bde的还不一样