Source position: db.pas line 1593
type TDataSetErrorEvent = procedure(
DataSet: TDataSet;
E: EDatabaseError;
var DataAction: TDataAction
) of object;