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

procedure TfmLabirint.LoadLabirint;
Var
  F:TextFile;
  LabRow:String;
  Ch:Char;
  x, y:Integer;
begin
  Run.Enabled:=False;
  StartX:=-1; StartY:=-1;
  StopX:=-1; StopY:=-1;
  AssignFile(F, OpenDialog1.FileName);
  Reset(F);
  y:=0;
  While Not(EOF(F)) Do
  Begin
    ReadLn(F, LabRow);
    Lab.RowCount:=y+1;
    Lab.ColCount:=Length(LabRow);
    For x:=0 To Length(LabRow)-1 Do
    Begin
      Ch:=LabRow[x+1];
      If Ch='J' Then
      Begin
        StartX:=x;
        StartY:=y;
      End;
      If Ch='O' Then
      Begin
        StopX:=x;
        StopY:=y;
      End;
      If ((Ch<>'J') And (Ch<>'O') And (Ch<>' ')) Then Ch:='x';
      Lab.Cells[x, y]:=Ch;
    End;
    Inc(y);
  End;
  CloseFile(F);
 
  LabX:=Length(LabRow);
  LabY:=y;
  Label1.Caption:='Размер лабиринта:  '+IntToStr(LabX)+' x '+IntToStr(LabY);
 
  If StartX<0 Then
  Begin
    Label2.Caption:='Начало поиска (J):  не указано!';
    Exit;
  End;
  Label2.Caption:='Начало поиска (J):  '+IntToStr(StartX+1)+' x '+IntToStr(StartY+1);
 
  If StopX<0 Then
  Begin
    Label3.Caption:='Выход из лабиринта (O):  не указан!';
    Exit;
  End;
  Label3.Caption:='Выход из лабиринта (O):  '+IntToStr(StopX+1)+' x '+IntToStr(StopY+1);
 
  Run.Enabled:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
const
   a1=0.0000188;       
   LAM1=0.0244;  {vozdyx}  
   DELTAU=0.01;            
   LX=0.1;  dX=0.01;       
   LY=0.1;  dY=0.01;         
   LZ=0.1;  dZ=0.01;   
var
  T:array[1..11,1..11,1..11]of real;
  dT:array[1..11,1..11,1..11]of real;
   X,Y,Z:integer;                   
   time:real;
   tt: longint;  {время воздействия}
   u: longint;  {входное воздействие в виде заданной температуры}
   tau: longint;  {число шагов по времени}
   PX,PY,PZ:REAL;
   F34,dF34,PF,alyfa,dR4,dRl:REAL;
 begin
   {считывание данных}
{   time:=strtoint(Edit2.Text);    }   
   u:=strtoint(Edit1.Text);         
 {  tau:=trunc (time/deltau);    }    
   PX:=dX*dX;    
   PY:=dY*dY;     
   PZ:=dZ*dZ;      
   {обнуление графика и окон}      
   Chart1.SeriesList[0].Clear;                        
   Memo1.Lines.Clear;                                    
   Edit3.Text:='';                                        
   ProgressBar1.Max:=70000;                                 
   ProgressBar1.Position:=0;                                
 {обнуление массивов}
  FOR X:=1 TO 11 DO
   FOR Y:=1 TO 11 DO
    FOR Z:=1 TO 11 DO
    BEGIN
    T[X,Y,Z]:=0;
    dT[X,Y,Z]:=0;
    END;
   {вычисление значений массива по формуле теплопроводности}
 {  FOR tt:=1 TO tau DO}
  FOR tt:=1 TO 70000 DO
    BEGIN
     FOR X:=2 TO 10 DO
      FOR Y:=2 TO 10 DO
       FOR Z:=2 TO 10 DO
       BEGIN
       dT[X,Y,Z]:=(T[X-1,Y,Z]-2*T[X,Y,Z]+T[X+1,Y,Z])/PX;
       dT[X,Y,Z]:=dT[X,Y,Z]+(T[X,Y-1,Z]-2*T[X,Y,Z]+T[X,Y+1,Z])/PY;
       dT[X,Y,Z]:=dT[X,Y,Z]+(T[X,Y,Z-1]-2*T[X,Y,Z]+T[X,Y,Z+1])/PZ;
       dT[X,Y,Z]:=a1*DELTAU*dT[X,Y,Z];
       END;
     FOR Y:=2 TO 10 DO
      FOR Z:=2 TO 10 DO
      BEGIN
       T[1,Y,Z]:=T[2,Y,Z];
      END;
      FOR Y:=2 TO 10 DO
       FOR Z:=2 TO 10 DO
      BEGIN
       T[11,Y,Z]:=T[10,Y,Z];
      END;
    FOR X:=2 TO 10 DO
     FOR Y:=2 TO 10 DO
      BEGIN
       T[X,Y,1]:=T[X,Y,2];
      END;
     FOR X:=2 TO 10 DO
      FOR Y:=2 TO 10 DO
      BEGIN
       T[X,Y,11]:=T[X,Y,10];
      END;
     FOR X:=1 TO 11 DO
      FOR Z:=1 TO 11 DO
      BEGIN
      T[X,1,Z]:=0;
      END;
    FOR X:=1 TO 11 DO
      FOR Z:=1 TO 11 DO
      BEGIN
       T[X,1,Z]:=10;
      END;
      BEGIN
        T[6,5,5]:=u;
      END;
     FOR X:=2 TO 10 DO
      FOR Y:=2 TO 10 DO
       FOR Z:=2 TO 10 DO
       BEGIN
       T[X,Y,Z]:=T[X,Y,Z]+dT[X,Y,Z];
       END;
 
 {вывод значений температуры в заданном датчике в виде графика}
      time:=tt*deltau;
      Chart1.SeriesList[0].AddXY(time,T[StrtoInt(ComboBox1.Text),StrtoInt(ComboBox2.Text),StrtoInt(ComboBox3.Text)]);
 
 {вывод значений температуры в заданном датчике в виде столбца}
      Memo1.Lines.Add(FloattoStr (T[StrtoInt(ComboBox1.Text),StrtoInt(ComboBox2.Text),StrtoInt(ComboBox3.Text)]));
       ProgressBar1.StepBy(1);
    end;
  {вывод температуры заданного датчика}
  Edit3.Text:=FloattoStr(T[StrtoInt(ComboBox1.Text),StrtoInt(ComboBox2.Text),StrtoInt(ComboBox3.Text)]);
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
 
end;
 
{ end;}
end.