TdxPreviewEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink) of object;