Открыть старницу в интернете через С++

#include <iostream.h>
using namespace std;
int main()
{
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Memo1->Text= IdHTTP1->Get("https://www.cyberforum.ru");
}
return 0;
}

int main()
{
}

String site = Edit1->Text;
Memo1->Text= IdHTTP1->Get(site);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdHTTP1->Head("https://www.cyberforum.ru");
  Memo1->Text= IdHTTP1->Response->RawHeaders->GetText();
}
//---------------------------------------------------------------------------

#include <IdHTTP.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try
  {
    TIdHTTP *HTTP = new TIdHTTP(NULL);
    TMemoryStream *MS  = new TMemoryStream;
    TStringList *SL = new TStringList;
    TMemo *Memo = new TMemo(this);
    Memo->Parent = Form1;
    Memo->ScrollBars = ssBoth;
    Memo->Name = "Memo";
    Memo->WordWrap = 0;
    Memo->Left = 0;
    Memo->Top = 0;
    Memo->Text = "";
    Memo->Width = 750;
    Memo->Height = 200;
    Memo->Visible = 1;
 
    HTTP->HandleRedirects = 1;
 
//  работает для "старых" Indy (русские символы)
//  Memo->Text = UTF8Decode(HTTP->Get("http://api.vkontakte.ru/method/getProfiles?uids=1&fields=photo"));
 
//  для "новых" Indy приходится использовать поток, иначе получаем знаки вопроса вместо русских букв
    HTTP->Get("http://api.vkontakte.ru/method/getProfiles?uids=1&fields=photo", MS);  // Павел Дуров :-)
    MS->Position = 0;
    SL->LoadFromStream(MS);
    Memo->Text = UTF8Decode(SL->Text);
//
 
    MS->Free();
    SL->Free();
    HTTP->Free();
  }
  catch (EIdException &E)
  {
    MessageBox(Application->Handle, ("\""+E.Message+"\"\n\nВозможно, отсутствует подключение\nк интернету или нет доступа к сайту.").c_str(), "Ошибка", MB_OK+MB_ICONWARNING);
  }
}

    ShellExecute(NULL, "open", "http://api.vkontakte.ru/method/getProfiles?uids=1&fields=photo", NULL, NULL, SW_SHOW);

    String site = "http://api.vkontakte.ru/method/getProfiles?uids=" + Edit1->Text + "&fields=photo";
    HTTP->Get(site, MS);
    MS->Position = 0;
    SL->LoadFromStream(MS);
    Memo->Text = UTF8Decode(SL->Text);