关于TWebBrowser的问题，多谢各位

我写了这样一段代码：
procedure ....
var
  NewTab: TTabSheet;
  NewPageControl: TpageControl;
  NewWeb: TWebBrowser;
begin
  {NewApp := Tmain.Create(nil);
  NewApp.Visible := true;
  ppDisp := NewApp.webbrowser1.Application;}
  NewPageControl := pages;
  NewTab:=TTabSheet.Create(NewPageControl);
  with NewTab do
  begin
    caption :='welcome';
    PageControl:=NewPageControl;
  end;
  NewPageControl.ActivePage:=NewPageControl.Pages[NewPageControl.ControlCount-1];
  NewWeb:=TWebbrowser.Create(application);
  with NewWeb do
  begin
    left:=1;
    top:=1;
    width:=500;
    height:=450;
    parent:=NewTab;//这调试不能通过，提示错误为：Cannot assign to a readonly property.  给为帮忙啊
  end;
end;