Тип события, возникающего при необходимости исправления ошибки объекта в целом
TTestObjectCorrectionEvent = procedure(Sender: TObject;
lCode, oIndex: integer; CorrectionKind: TTestObjectCorrectionKind;
var ErrorPointNumber: integer) of object;
Sender
CorrectionKind
ErrorPointNumber
(возвращаемый параметр)