TdxServerModeDataSourceFatalErrorEvent = procedure(Sender: TdxServerModeCustomDataSource; const AMessage: string) of object;