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