Тип события с логическим параметром
TBooleanEvent = procedure(Sender: TObject; Value: boolean) of object;
Sender