procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  s : string;
begin
  Con.Errors.Clear;
  try
    ADODataSet2.InsertRecord(['1234567890', null]);
   {первое поле - varchar( 6 )
     второе - integer not null}
  except
    on E : EOleException do
      ShowMessage('OLE!!! '+ # 13 # 10  + E.Message);
      {сюда, кстати, ни разу не попал!}
    on E : EDatabaseError do
    begin
      s:= '';
      for i :=  0  to Con.Errors.Count -  1  do
        s:= s + Con.Errors.Item[i].Source + # 13 # 10  +
                   Con.Errors.Item[i].Description + # 13 # 10  +
       IntToStr(Con.Errors.Item[i].NativeError) + # 13 # 10  +
       IntToStr(Con.Errors.Item[i].Number) + # 13 # 10 ;
      ShowMessage('DB!!! '+ # 13 # 10  + E.Message + # 13 # 10  + s);
    end
    else  ShowMessage('Что-то другое!');
  end;
end;