delphi 遍历所有Frame的有关问题

delphi 遍历所有Frame的问题
如何 遍历所有的frame，再分别枚举每个页面的项目，进行填写即可

我现在需要填写一个 frame 如何全部遍历 和枚举？？

[解决办法]

Delphi(Pascal) code

Function TForm1.GetFrame(FrameNo:Integer):IWebbrowser2;var  OleContainer:IOleContainer;  enum:IEnumUnknown;  unk:IUnknown;  Fetched:PLongint;begin  while webbrowser1.ReadyState<>READYSTATE_COMPLETE do    Application.ProcessMessages;  if Assigned(webbrowser1.document) then  begin    Fetched:=nil;    OleContainer:=webbrowser1.Document as IOleContainer;    OleContainer.EnumObjects(OLECONTF_EMBEDDINGS,enum);    Enum.Skip(FrameNo);    Enum.Next(OLECONTF_EMBEDDINGS,Unk,Fetched);    Result:=Unk as IWebbrowser2;  end  else  Result:=nil;end;