delphi - TTreeView コード変換

Question

FireMonkey を使用して Delphi XE6 で Delphi 6 で使用していた次のコードを実装する方法を知りたいです。

Node1:=Quick_Calc.EquivalenciesTree.Items.Add(nil,Text);

Node1:=Quick_Calc.EquivalenciesTree.Items.Add(Node1,Text);

Node1:=Quick_Calc.lEquivalenciesTree.Items.AddChild(Node1,Text);

Answer 1

Procedure Carga_Nodo;
Begin
 If NivAct=0 Then
  Begin
{
   Nodo1:=Quick_Calc.ArbolEquivalencias.Items.Add(nil,CadMem)
}
   Nodo[I].Text:=CadMem;
   Nodo[I].Parent:=Form1.ArbolEquivalencias;
   NivAnt:=NivAct;
   IndPad:=I;
   IndHer:=I;
   IndHij:=I;
  End
 Else
  Begin
  If NivAnt=NivAct Then
   Begin
{   Nodo1:=Quick_Calc.ArbolEquivalencias.Items.Add(Nodo1,CadMem)}
    Nodo[I].Text:=CadMem;
    Nodo[I].Parent:=Nodo[IndPad];
   End
  Else
   If NivAct>NivAnt Then
    Begin
{    Nodo1:=Quick_Calc.ArbolEquivalencias.Items.AddChild(Nodo1,CadMem)}
    IndPad:=I-1;
    Nodo[I].Text:=CadMem;
    Nodo[I].Parent:=Nodo[IndPad];
    End
   Else
    Begin
     J:=I;
     Repeat
{      NodoPadre:=NodoPadre.GetPrev;}
      NodoPadre:=GetPrevItem(Nodo[J]);
      NivAnt:=Nodo[J].Level;
      J:=J-1;
     Until NivAnt=NivAct;
     J:=J+1;
{     Nodo1:=Quick_Calc.ArbolEquivalencias.Items.Add(Nodo1,CadMem)}
     IndHer:=J;
     Nodo[I].Text:=CadMem;
     Nodo[I].Parent:=Nodo[IndHer];
    End;
   NivAnt:=NivAct;
  End;
End;