Перевод кода из Delphi в C++ Builder / C++ Builder

void __fastcall TForm1::SpeedButton1Click(TObject *Sender);
{
   Application.Minimize;
}
 
void __fastcall TForm1::SpeedButton2Click(TObject *Sender);
{
    Application.Terminate;
}

void __fastcall TForm7::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
    switch (TreeView1->Selected->AbsoluteIndex)
    {
    case 1:
        WebBrowser1->Navigate(GetCurrentDir() + "\\1\\1.1.htm");
        Hide();
        Show();
        break;
    case 2:
        // и так далее ...
        break;
    }
}

CppWebBrowser1->Navigate(String(GetCurrentDir() + "\\1\\1.1.htm").w_str());

#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
 switch (TreeView1->Selected->AbsoluteIndex)
    {
    case 1:
        CppWebBrowser1->Navigate(String(GetCurrentDir() + "\\1\\1.1.htm").w_str());
        Hide();
        Show();
 
}
//---------------------------------------------------------------------------

CppWebBrowser1->Navigate(WideString(GetCurrentDir() + "\\1\\1.1.htm").c_bstr());

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpeedButton1.Down := True;
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  SpeedButton1.AllowAllUp := True;
end;