При вводе в поле edit1 адреса vk.com, браузер должен переходить на odnoklassniki.ru (Delphi7)

procedure TForm1.btn1Click(Sender: TObject);
begin
if Pos('http://', Edit1.Text)=0 then Edit1.Text :='http://'+Edit1.Text;
if Edit1.Text='http://vk.com' then
 ShellExecute(Handle, 'open', PChar('http://odnoklassniki.ru'), nil, nil, SW_SHOW)
 else
 ShellExecute(Handle, 'open', PChar(Edit1.Text), nil, nil, SW_SHOW);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Silent :=True;//отключаем просмотр ошибок сценариев
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
if Pos('http://', Edit1.Text)=0 then Edit1.Text :='http://'+Edit1.Text;
if Edit1.Text='http://vk.com' then
WebBrowser1.Navigate('http://odnoklassniki.ru')
 else
WebBrowser1.Navigate(Edit1.Text);
  end;
end;
 
end.

procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName,
  PostData, Headers: OleVariant; var Cancel: WordBool);
begin
  if Pos('vk.com',URL) <> 0 then
  begin
    Cancel:= true;
    WebBrowser1.Navigate('http://ok.ru');
  end;
end;