TdxBeforeImportEvent = procedure(Sender: TObject; Args: TdxBeforeImportEventArgs) of object;