Desde aki llamo al procedimiento que me muestra los mensajes
Código Delphi
[-]
try
t.post;
except
on e:edbengineerror do begin
t.cancel;
mostrarmensajes(inttostr(e.errors[e.errorcount-1].errorcode));
end;
on e:edatabaseerror do begin
t.cancel;
showmessage(e.message);
end;
end;