apsal jsem program v Delphi XE

//Create
procedure TForm1.Button3Click(Sender: TObject);
var
  WB:TWebBrowser;
begin
   WB:=TWebbrowser.Create(Nil);
   TControl(WB).Parent:=form1;
   WB.Align:=alClient;
   WB.Silent:=True;
   WB.Visible:=True;
end;
//Navigate
procedure TForm1.Button1Click(Sender: TObject);
begin
  (Form1.Controls[form1.ControlCount-1] as TWebBrowser).navigate('google.com');
end;
//Free
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Controls[form1.ControlCount-1].Free;
end;