olecontainer中如何控制word审阅批注来源？请帮助我，马上给分

Question

看了别人以前的一个问题：在olecontainer中如何控制word审阅批注来源，最终也没有解决。我现在也急着用呀，帮我！vba中关于控制word审阅批注来源的用法：If ActiveDocument.Comments.Count >= 1 Then    With ActiveDocument.Comments(1)        .Author = "Joe Smith"        .Initial = "JAS"    End WithEnd If    不知道如何转化为delphi代码？？？我是这样做的....//用olecontainer打开一个word程序 olecontainer1.CreateObjectFromFile('c:\word',true); //显示 olecontainer1.DoVerb(-1); //取得oleobject word:=OleContainer1.OleObject; //  可以通过这句来控制对该文档进行修订跟踪 word.TrackRevisions:=True;  （能达到目的）  // 但是不能通过下面语句控制该文档的审阅批注来源 word..Comments(1).Author='a';（报错）  //尝试以下方法也不成功OleContainer1.OleObject.Application.ActiveDocument.Comments(1).Author='a';（报错）   请各位帮忙阿，不胜感激！！！