TMAPITableAdvise = class(TMAPIBase)

  private

   ...

   ...

  protected

   ...

   ... 

  public

    constructor Create;

    destructor Destroy; override;

    property Active: Boolean read GetActive write SetActive;

    property AdvisedTable: IMAPITable read GetMAPITable;

    procedure Advise(const MAPITable: IMAPITable);

    procedure UnAdvise;

    property ConnectionID: ULONG_PTR read FConnectionID;

    property OnChanged: TTableBasicEvent read FOnChanged write FOnChanged;

    property OnError: TTableErrorEvent read FOnError write FOnError;

    property OnReload: TTableBasicEvent read FOnReload write FOnReload;

    property OnRestrictDone: TTableBasicEvent read FOnRestrictDone write FOnRestrictDone;

    property OnSetColDone: TTableBasicEvent read FOnSetColDone write FOnSetColDone;

    property OnSortDone: TTableBasicEvent read FOnSortDone write FOnSortDone;

    property OnRowAdd: TTableRowAddOrModifiedEvent read FOnRowAdd write FOnRowAdd;

    property OnRowModified: TTableRowAddOrModifiedEvent read FOnRowModified write FOnRowModified;

    property OnRowDeleted: TTableRowDeletedEvent read FOnRowDeleted write FOnRowDeleted;

  end;