OnFieldChangeComplete事件中的参数怎么使用？(100分)

该过程的定义如下：
TFieldChangeCompleteEvent = procedure(DataSet: TCustomADODataSet; const FieldCount:
Integer; const Fields: OleVariant; const Error: Error; var EventStatus: TEventStatus) of object;
property OnFieldChangeComplete: TfieldChangeCompleteEvent;
我想通过该事件，做一些当某些ADODataSet的Field改变时，自动修改另一些Field值的工作。
本人查了很多资料（包括Microsoft），但不知道OleVariant怎么使用，请问各位大侠，
有无高招呀？