Debes de llamar al procedimiento indicado en el evento:
OnPostError del Ttable correspondiente.
Código Delphi
[-]procedure TDmPal.SociosPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
midberror(Socios,e);
end;
Un Saludo.