Тип события с целочисленным параметром
TEventInteger = procedure(Sender: TObject; Value: integer) of object;