TcxEventHandler = procedure(Sender: TObject; const AEventArgs) of object;