POST时如何得到各种错误信息

Question

我有段代码如下：
procedure TFmDaCon.adodaconPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if e.Message='Cannot insert an empty row - must have at least one column value set' then
    e.Message:='加工厂编号不能为空'
  else
    e.Message:='加工厂编号有重复，请重新输入！';
  Action:=daFail;
  DBGrid1.SelectedIndex:=0;
end;
我觉得这样做太不科学了

Answer 1

看E文提示吧！
tryexcept on E:Exception
  ShowMessage(E.Message);
end;

Answer 2

问题还是没有解决，我要在ONPOSTError事件中处理异常，从中得到各种异常的情况