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