Переделать код из Delphi в С++ Builder 6

unit Unit1;
 
interface
 
uses
  Winapi.Windows , Winapi.Messages , SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.Menus ,Winapi.PsAPI ,
   Winapi.ShellAPI  ;
 
type
  TForm1 = class(TForm)
    DoIt: TButton;
    number: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    result: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ProgressBar1: TProgressBar;
    Panel1: TPanel;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    Help1: TMenuItem;
    N1: TMenuItem;
    procedure DoItClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Help1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses ABOUT;
 
function Convert(numstring: string; fromdigit: integer; todigit: integer): string;
var
  i,k: longint;
  num: extended;
  onesymbol: string;
  strbin,strtemp: string;
  module: string;
  num2: longint;
begin
  num:=0;
  k:=length(numstring)-1;
  for i:=1 to length(numstring) do begin
    onesymbol:=numstring[i];
    if LowerCase(onesymbol)='a' then onesymbol:='10' else
    if LowerCase(onesymbol)='b' then onesymbol:='11' else
    if LowerCase(onesymbol)='c' then onesymbol:='12' else
    if LowerCase(onesymbol)='d' then onesymbol:='13' else
    if LowerCase(onesymbol)='e' then onesymbol:='14' else
    if LowerCase(onesymbol)='f' then onesymbol:='15';
    num:=num+strtoint(onesymbol)*Power(fromdigit,k);
    dec(k);
  end;
  strtemp:=FloatToStr(num);
  num2:=StrToInt(strtemp);
  strtemp:='1';
  strbin:='';
  while strtemp='1' do begin
    if num2 = 0 then break
    else begin
      module:=inttostr(num2 mod todigit);
      if todigit=16 then begin
        if module='10' then module:='A' else
        if module='11' then module:='B' else
        if module='12' then module:='C' else
        if module='13' then module:='D' else
        if module='14' then module:='E' else
        if module='15' then module:='F' else
        if module='16' then module:='10';
      end;
      strbin:=strbin+module;
      num2:=num2 div todigit;
    end;
  end;
  strtemp:='';
  for i:=length(strbin) downto 1 do
    strtemp:=strtemp+strbin[i];
  Convert:=strtemp;
end;
 
procedure TForm1.DoItClick(Sender: TObject);
begin
  {
  Reference API:
    Возвращает строку.
    1-ый параметр - это число в ковычках(т.е строка);
    2-ой параметр - из какой системы счисления переводим число;
    3-ий параметр - в какую систему счисления...
  Пример, Label1.Caption:=Convert('1B75',16,10);
  Переводит число 1B75 из шестнадцатиричной в десятичную систему счисления
  }
  ProgressBar1 .Position := 0;
  ProgressBar1 .Visible := True ;
  Timer1 .Enabled := True ;
  if number .Text = '' then
  begin
  ProgressBar1 .Visible := False  ;
  Timer1 .Enabled := False ;
  ShowMessage('Введите число');
 
  end;
 
  Result.Text:=Convert(number.Text,StrToInt(ComboBox2 .Text),StrToInt(ComboBox1 .Text));
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox2.ItemIndex:=0;
ComboBox1.ItemIndex:=0;
end;
 
procedure TForm1.Help1Click(Sender: TObject);
begin
ShellExecuteA (0,0,'Help.exe',0,0,SW_SHOW );
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
AboutBox . ShowModal ;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1 .Position:=ProgressBar1 .Position+10;
if ProgressBar1 .Position = 100 then
begin
timer1.Enabled :=False ;
Beep ;
 
end;
end;
 
end.

function Convert(numstring: string; fromdigit: integer; todigit: integer): string;
var
  i,k: longint;
  num: extended;
  onesymbol: string;
  strbin,strtemp: string;
  module: string;
  num2: longint;
begin
  num:=0;
  k:=length(numstring)-1;
  for i:=1 to length(numstring) do begin
    onesymbol:=numstring[i];
    if LowerCase(onesymbol)='a' then onesymbol:='10' else
    if LowerCase(onesymbol)='b' then onesymbol:='11' else
    if LowerCase(onesymbol)='c' then onesymbol:='12' else
    if LowerCase(onesymbol)='d' then onesymbol:='13' else
    if LowerCase(onesymbol)='e' then onesymbol:='14' else
    if LowerCase(onesymbol)='f' then onesymbol:='15';
    num:=num+strtoint(onesymbol)*Power(fromdigit,k);
    dec(k);
  end;
  strtemp:=FloatToStr(num);
  num2:=StrToInt(strtemp);
  strtemp:='1';
  strbin:='';
  while strtemp='1' do begin
    if num2 = 0 then break
    else begin
      module:=inttostr(num2 mod todigit);
      if todigit=16 then begin
        if module='10' then module:='A' else
        if module='11' then module:='B' else
        if module='12' then module:='C' else
        if module='13' then module:='D' else
        if module='14' then module:='E' else
        if module='15' then module:='F' else
        if module='16' then module:='10';
      end;
      strbin:=strbin+module;
      num2:=num2 div todigit;
    end;
  end;
  strtemp:='';
  for i:=length(strbin) downto 1 do
    strtemp:=strtemp+strbin[i];
  Convert:=strtemp;
end;