TdxPSTeeChartReportLinkCreateGraphicEvent = procedure(Sender: TBasedxReportLink; var AGraphic: TGraphic) of object;