TdxBarCloseUpEvent = procedure(Sender: TObject; AReason: TdxBarCloseUpReason) of object;