请各位大大指点！急急急！小弟在线等！

小弟先行谢过.
我写了一个动态加载Frame的小程序，每次第一次运行的时候加载是正确的，但是第二次换页面再次加载的时候就不能够正常被加载！
程序代码如下，其中使用的TMS控件中的TAdvToolBarPager，通过它的页面变化，把Frame加载到Form 上！procedure Ts.FormCreate(Sender: TObject);
begin
  AdvToolBarPager1.ActivePageIndex := 0; //首先动态加载一个页面
  AdvToolBarPager1Change(AdvToolBarPager1);
end;procedure Ts.AdvToolBarPager1Change(Sender: TObject);
var
  TabIndex: Integer;
  cClass: TClass;
  PageControl: TAdvToolBarPager;
  frameName: string;
begin
  PageControl := Sender as TAdvToolBarPager; //赋值
  TabIndex := PageControl.ActivePageIndex; //赋值
  if PageControl.ActivePage.Tag <> 0 then Exit; //如果已经存在，则不在重新加载  cClass := GetClass('TFrame' + IntToStr(TabIndex + 1)); //加载
  if not Assigned(cClass) then Exit;
  frame := TComponentClass(cClass).Create(Self) as TFrame;  if not Assigned(frame) then Exit;
  Frame.Parent := Self; //动态加载
  frame.align := alclient;
  PageControl.ActivePage.Tag := -1; //给Tag 属性赋值，以便不进行重复操作
{initialization frame}
  PostMessage(frame.Handle, WM_INITFRAME, 0, 0);
end;请各位大大不吝赐教。小弟拜谢！在线等！