Подскажите как перевести в форм и сделать код?

int N;
    cout << "Введите элементы вектора, N: ";
    cin >> N;
 
    int H[100];
 
    for(int i = 0; i < N; i++)
    {
      cout << "Введите значение [" << i + 1 << "]-го элемента вектора:";
      cin >> H[i];
    }
 
    int R=1,S=0,Z;
    for(int i = 0; i < N; i++)
    {
         R=R*H[i];
         S=S+H[i]*H[i]*H[i];
    }
         Z=R+S;
        cout << "R = " << R<< endl;
    cout << "Z = " << Z<< endl;
 
    system ("pause");
    return 0;
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int *A, K;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  static int Step = -1;
  static int N = SpinEdit1->Value;
  K = SpinEdit1->Value;
  if(N <= 0)
   {
     ShowMessage("Необходимо ввести число больше 0");
     return;
   }
  Label1->Caption = String().sprintf(L"Введите %d-й элемент вектора и нажмите кнопку ДАЛЕЕ", Step + 2);
  if(Step == -1)
   {
     GroupBox1->Visible = true;
     StringGrid1->DefaultColWidth = StringGrid1->Width / N - 2;
     StringGrid1->ColCount = N;
     A = new int[N];
   }
  else
   {
     if(Step == N - 2)
      {
        Button1->Caption = "Готово";
        Label1->Caption = String().sprintf(L"Введите %d-й элемент вектора и нажмите кнопку ГОТОВО", Step + 2);
      }
     if(Step == N - 1)
      {
        Button1->Enabled = false;
        SpinEdit1->Enabled = false;
        Button2->Enabled = true;
        Label1->Caption = "Для проведения расчетов нажмите кнопку РАСЧЕТ";
      }
     A[Step] = SpinEdit1->Value;
     StringGrid1->Cells[Step][0] = IntToStr(A[Step]);
   }
  SpinEdit1->Value = 0;
  if(Step != N - 1) SpinEdit1->SetFocus();
  Step++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  __int64 R = 1, S = 0, Z;
  for(int i = 0; i < K; i++)
    {
      R *= A[i];
      S += pow(A[i], 3);
    }
  Z = R + S;
  Label2->Caption = "R = " + IntToStr(R);
  Label3->Caption = "S = " + IntToStr(S);
  Label4->Caption = "Z = " + IntToStr(Z);
}