TdxMarginEvent = procedure(Sender: TObject; AMargin: TdxPreviewPageMargin) of object;