TreeView. Delphi

[novicepro]

Подскажите, в чем ошибка. не добавляется новый дочерний узел в корневой, после первого REPEAT.

TreeView1.Items.Clear;
  TreeView1.FullExpand;
  TreeView1.Items.Add(nil, Edit3.Text);
  tmp:=Edit3.Text;
  t:=0;
  k:=0;
  repeat
    for i:=0 to Length(tmp)-1 do
    begin
      str:=Copy(tmp,i+1,2);
      for j:=0 to Memo1.Lines.Count-1 do
      begin
        str2:=Copy(Memo1.Lines[j],1,2);
        if str=str2 then
        begin
          TreeView1.Items.AddChild(TreeView1.Items.Item[t], Copy(tmp,1,i) + Copy(Memo1.Lines[j],7,2) + Copy(tmp,i+3,Length(tmp)-2-i));
          tmp:=TreeView1.Items[t+1].Text;
          inc(t);
        end;
        str2:='';
      end;
    end;
    inc(k);
  until k=Length(tmp)-1;

  t:=0;
  k:=0;
  repeat
    for i:=1 to Length(tmp)-1 do
    begin
      str:=Copy(tmp,Length(tmp)-i,2);
      for j:=0 to Memo1.Lines.Count-1 do
      begin
        str2:=Copy(Memo1.Lines[j],1,2);
        if str=str2 then
        begin
          TreeView1.Items.AddChild(TreeView1.Items.Item[t], Copy(tmp,1,Length(tmp)-1-i) + Copy(Memo1.Lines[j],7,2) + Copy(tmp,Length(tmp)-i+2,i));
          tmp:=TreeView1.Items[t+1].Text;
          inc(t);
        end;
        str2:='';
      end;
    end;
    inc(k);
  until k=Length(tmp)-1;

[Sibedir]

novicepro, дорогой, вы хоть поясните, что должно происходить:
1. Что находится в Edit3?
2. Что находится в Memo1?
3. Что должно получится в TreeView1?

[novicepro]

необходимые операции по перестановке сделаны, по отдельности работает каждая. Когда вместе - вторую ветвь не выводит. например,

[Sibedir]

1. Перед выполнением 2-го цикла tmp=53653
2. Что-то алгоритм какой-то странный. Не видна его практическая значемость. Можите описать саму задачу. Что вообще делаете?

[novicepro]

Тема закрыта