Перевести программу из Delphi на С++ Builder

unit road_;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormActivate(Sender: TObject);
var
   i:integer;
begin
   // нумерация строк
   for i:=1 to 10 do
       StringGrid1.Cells[0,i]:=IntToStr(i);
   // нумерация колонок
   for i:=1 to 10 do
       StringGrid1.Cells[i,0]:=IntToStr(i);
   // описание предопределенной карты
   StringGrid1.Cells[1,2]:='1';
   StringGrid1.Cells[2,1]:='1';
   StringGrid1.Cells[1,3]:='1';
   StringGrid1.Cells[3,1]:='1';
   StringGrid1.Cells[1,4]:='1';
   StringGrid1.Cells[4,1]:='1';
   StringGrid1.Cells[2,5]:='1';
   StringGrid1.Cells[5,2]:='1';
   StringGrid1.Cells[2,6]:='1';
   StringGrid1.Cells[6,2]:='1';
   StringGrid1.Cells[4,7]:='1';
   StringGrid1.Cells[7,4]:='1';
   StringGrid1.Cells[4,8]:='1';
   StringGrid1.Cells[8,4]:='1';
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
const
   N=10;{ кол-во вершин графа}
var
   map:array[1..N,1..N]of integer; {Карта. map[i,j не 0, если точки i и j соединены }
   road:array[1..N]of integer;     { Дорога - номера точек карты }
   incl:array[1..N]of boolean;     { incl[i] равен TRUE, если точка с номером i включена в road }
   start,finish:integer;           { Начальная и конечная точки }
   found:boolean;
   i,j:integer;
procedure step(s,f,p:integer);
var
   c:integer;{ Номер точки,в которую делаем очередной шаг }
   i:integer;
begin
   if s=f then
   begin
       { Точки s и f совпали !}
       found:=TRUE;
       Label1.caption:=Label1.caption+#13+'Путь:';
       for i:=1 to p-1 do
          Label1.caption:=Label1.caption+' '+IntToStr(road[i]);
   end
   else begin
    { выберем очередную точку }
    for c:=1 to N do
           begin { проверяем все вершины }
          if(map[s,c]<> 0)and(NOT incl[c])
              { точка соединена с текущей и не включена в маршрут}
                  then begin
             road[p]:=c;{ добавим вершину в путь }
             incl[c]:=TRUE;{ пометим вершину как включенную }
         Label5.caption:=Label5.caption+INTTOSTR(C)+' ';
             step(c,f,p+1);
             incl[c]:=FALSE;
                         road[p]:=0;
                  end;
           end;
   end;
end;{ конец процедуры step }
 
begin
   Label1.caption:='';
   Label5.caption:='';
   { инициализация массивов }
   for i:=1 to N do road[i]:=0;
   for i:=1 to N do incl[i]:=FALSE;
 
   { ввод описания карты из SrtingGrid.Cells}
   for i:=1 to N do
       for j:=1 to N do
          if StringGrid1.Cells[i,j] <> ''
              then map[i,j]:=StrToInt(StringGrid1.Cells[i,j])
              else map[i,j]:=0;
 
   start:=StrToInt(Edit1.text);
   finish:=StrToInt(Edit2.text);
   Label5.caption:=EDIT1.TEXT+' ';
   road[1]:=start;{ внесем точку в маршрут }
   incl[start]:=TRUE;{ пометим ее как включенную }
 
   step(start,finish,2);{ищем вторую точку маршрута }
 
   // проверим, найден ли хотя бы один путь
   if not found
       then Label1.caption:='Указанные точки не соединены!';
 
end;
end.