После присвоения кода на кнопку на табе при нажатии кнопки выбивает ошибку

type
  TForm1 = class(TForm)
    pgc1: TPageControl;
    pnl1: TPanel;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure Mymessage(sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  wb:TWebBrowser;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var
  tab:TTabSheet;
  wb:TWebBrowser;
  pnl:TPanel;
  btn:TButton;
begin
tab:=TTabSheet.Create(Self);
tab.PageControl:=pgc1;
tab.Visible := true;
pgc1.ActivePage:=tab;
tab.Align := alClient;
wb:=TWebBrowser.Create(tab);
TwinControl(wb).Parent:=tab;
pnl:=TPanel.Create(tab);
pnl.Parent:=tab;
btn:=TButton.Create(pnl);
btn.Parent:=pnl;
btn.OnClick:=Form1.Mymessage;
 
 
end;
procedure Tform1.Mymessage(sender:TObject);
begin
wb.Navigate('http:\\[url]www.vk.com');[/url]
end;
end.