Как изменить URL в адресной строке браузера

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HWND hWnd1;
AnsiString OPclass;
int i = 1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
BOOL EnumWindowsProc(HWND hWnd, long lParam)
{
  char Buff[255], NameOfClass[255]; // char - для ВСВ6
   GetWindowText(hWnd, Buff, 254);
  GetClassName(hWnd, NameOfClass, 254);  // clasa
  if ( AnsiString(NameOfClass) == OPclass && AnsiString(Buff) != ""){
  if (i<2) hWnd1 = hWnd;
  else i++;
  }
  return TRUE;
}
 
 
 
AnsiString TForm1::GetURL(AnsiString Browser)
{
 AnsiString Result;
  DdeClientConv1->SetLink(Browser, "WWW_GetWindowInfo");
 
   //Запрашиваем параметр "sUrl" ("0xFFFFFFFF" для Opera)
   Result = DdeClientConv1->RequestData("0xFFFFFFFF");
 
   Result.Delete(Result.Pos(","), Result.Length()-Result.Pos(",")+1);
 
   Result.Delete(1,1);
   Result.Delete(Result.Length(), 1);
 
   DdeClientConv1->CloseLink();
   return  Result;
 }
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit2->Text= GetURL(Edit1->Text);
 Edit3->Text =Edit2->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 WORD w;
 for (int i=0;i<2;i++){
 if (i == 0)OPclass = "OpWindow";
 if (i == 1)OPclass = "OperaWindowClass";
 EnumWindows( (WNDENUMPROC)EnumWindowsProc, 0);
  if(hWnd1)
SetForegroundWindow(hWnd1);
w = VkKeyScan('W');
 
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(w,0,0,0);
 
keybd_event(w,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
 }
 
if (DdeClientConv1->SetLink(Edit1->Text,"WWW_OpenURL")) {
       DdeClientConv1->RequestData(Edit3->Text+" ");
       DdeClientConv1->CloseLink();
     }
}
//---------------------------------------------------------------------------