TdxStatusBarTextEvent = procedure(Sender: TObject; const R: TRect; var AText: string) of object;