Source position: o32vldtr.pas line 57
type TValidatorErrorEvent = procedure(
Sender: TObject;
const ErrorMsg: string
) of object;