Тип события, возникающего в начале тестирования объекта
TTestObjectBeginEvent = procedure(Sender: TObject; lCode,oIndex: integer) of object;
Sender