TGetButtonHintEvent = procedure (Sender: TObject; Index: Integer; var AHint: WideString) of object;