TButtonClickEvent = procedure (Sender: TObject; Index: integer; Shift: TShiftState) of object;