Помогите пожалуйста с переводом Delphi на C++

[Jupiter]

Помогите пожалуйста перевести код с Delphi на C++.

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;

  procedure Prev32(Var DTM); Message 30000;
  procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation


Procedure Init32(HWND1 : LongWord);  External
'111.dll';

Function Param_6(
Var Par_1, Par_2, Par_3, Par_4, Par_5, Par_6 : Word) : Boolean; External
'111.dll';




procedure TForm1.Prev32(Var DTM);
Var
Buff_1, Buff_2, Buff_3, Buff_4, Buff_5, Buff_6 : Word;

begin

  If Param_6(Buff_1,Buff_2,Buff_3,Buff_4,Buff_5,Buff_6) Then
  begin
  Form1.Prm_1.Text := IntToStr(Buff_1);
  Form1.Prm_2.Text := IntToStr(Buff_2);
  Form1.Prm_3.Text := IntToStr(Buff_3);
  Form1.Prm_4.Text := IntToStr(Buff_4);
  Form1.Prm_5.Text := IntToStr(Buff_5);
  Form1.Prm_6.Text := IntToStr(Buff_6);
  end;
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
Init32(Form1.Handle);
end;