Source position: ovcbase.pas line 126
type TDataErrorEvent = procedure(
Sender: TObject;
ErrorCode: Word;
const ErrorMsg: string
) of object;