procedure TForm3.sButton1Click(Sender: TObject); begin Form4.show; Form4.WebBrowser1.Navigate('http://vk.com/login.php?app=2750730&layout=popup&type=browser'); end;