Fórum mostrar exceções do servidor no dbexpress #237816

Olá amigos...


estou criando um cadastro em D7, Fb1.5 e dbexpress,
estou gravando no banco e alterando os dados com sucesso, só que eu não consigo capturar as exceptions do firebird caso os dados do cadastro estejam incompletos... alguem sabe com mostrar o texto destas exceptions para o usuario????

Estou usando o seguinte codigo para gravar:

procedure TForm1.Button2Click(Sender: TObject);
var
TD : TTransactionDesc;
begin
try
if NOT CONEXAO.InTransaction then
begin
TD.TransactionID := 2; {de preferencia incrementar o ID da transação}
TD.IsolationLevel := xilREADCOMMITTED;
conexao.StartTransaction(TD);
try
ClientDataSet1.Post;
(ClientDataSet1 as TClientDataSet).ApplyUpdates(-1);
conexao.Commit(TD);
(ClientDataSet1 as TClientDataSet).Refresh;
MessageBox(0,´Seus dados foram salvos com sucesso.´,´Confirmação !´,MB_OK+MB_ICONINFORMATION);
ClientDataSet1.Last;
except
(ClientDataSet1 as TClientDataSet).CancelUpdates;
conexao.Rollback(TD);
MessageBox(0,´Erro ao gravar no banco de dados!´,´Erro crítico!´,MB_OK+MB_ICONERROR);
end;
end
else
MessageBox(0,´Erro ao gravar no banco de dados!´,´Erro crítico!´,MB_OK+MB_ICONERROR);
except on E: Exception do
begin
ShowMessage(´Erro ao gravar no banco de dados! ´ + #13 + E.Message);
(ClientDataSet1 as TClientDataSet).Refresh;
Abort;
end;
end;
end;

grato

rodrigodeoli