TdxPSGetNewReportStorageNameEvent = procedure(Sender: TBasedxReportLink; var AName: string) of object;