procedure TfMain.wbLoginNavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if pos('remixlang=0',IHTMLDocument2(wbLogin.Document).cookie)=0 then begin
    IHTMLDocument2(wbLogin.Document).cookie := 'remixlang=0; path=/; domain=.vk.com';
    wbLogin.Navigate(URL);
    exit;
  end;
  // ...
end;