intraweb中frame问题！(100分)

implementation
uses
unit3;
procedure TIWFrame4.IWRadioButton1Click(Sender: TObject);
// f:TFrame;//在unit3中已定义
begin
if Assigned(f) then
FreeAndNil(f)
else
begin
f:=TIWFrame5.Create(tmain.Create(WebApplication) );
//tmain //unit3
f.Parent:=tmain.Create(webApplication);
end;
end;
这段代码可以执，却执行后什么都没有？不知道为什么

procedure TIWForm2.IWButton1Click(Sender: TObject);
var
obj_Frame: TIWframe4;
begin
if IWRegion1.IWComponentsCount<>0 then
begin
IWRegion1.Component[0].Free;
end;
obj_Frame := TIWframe4.Create(IWRegion1);
obj_Frame.parent := (IWRegion1);
obj_Frame.Align := alclient;
obj_Frame.show;
end;

implementation
uses
unit3;
procedure TIWFrame4.IWRadioButton1Click(Sender: TObject);
// f:TFrame;//在unit3中已定义
begin
if Assigned(f) then
FreeAndNil(f)
else
begin
f:=TIWFrame5.Create(tmain.Create(WebApplication) );
//我要在tmain(unit3单元)窗体上显示
f.Parent:=tmain.Create(webApplication);
end;
end;
这段代码可以执，却执行后什么都没有？不知道为什么 在TIWFrame4中操作把TIWFrame5显示到tmain(unit3单元)中去