TdxMailMergeStartedEvent = procedure(Sender: TObject; const Args: TdxMailMergeStartedEventArgs) of object;