CppWebBrowser

TCppWebBrowser web[100];

void __fastcall TForm1::CppWebBrowser1BeforeNavigate2(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL, Variant *Flags,
      Variant *TargetFrameName, Variant *PostData, Variant *Headers,
      VARIANT_BOOL *Cancel)
{web[p]->Stop(); Newvkl->Click(); web[p]->Navigate(*URL,0,NULL,NULL,NULL);}

web[*k]->OnBeforeNavigate2=CppWebBrowser1BeforeNavigate2;

void __fastcall MyOnBeforeNavigate2(TObject *Sender, LPDISPATCH pDisp,
  Variant *URL, Variant *Flags, Variant *TargetFrameName, Variant *PostData,
  Variant *Headers, VARIANT_BOOL *Cancel);

void __fastcall TForm1::MyOnBeforeNavigate2(TObject *Sender, LPDISPATCH pDisp,
  Variant *URL, Variant *Flags, Variant *TargetFrameName, Variant *PostData,
  Variant *Headers, VARIANT_BOOL *Cancel)
{
  ShowMessage("Test");
}

MyCppWebBrowser = new TCppWebBrowser(this);
MyCppWebBrowser->TOleControl::Parent = this;
MyCppWebBrowser->OnBeforeNavigate2 = TCppWebBrowserBeforeNavigate2(&MyOnBeforeNavigate2);
MyCppWebBrowser->Navigate(Variant("cyberforum.ru"));
//...
delete MyCppWebBrowser;
MyCppWebBrowser = NULL;