TreeView: почему при создании 3-го уровня идёт смещение записей?

procedure TForm2.sButton1Click(Sender: TObject);
 
var
i,j,k,l,q,w,e,t: integer;
begin
q:=0;
 
 
for i:=0 to 10 do // Первый уровень
 
begin
sTreeView1.Items.Add(nil,'1');
w:=q;
 
      for j:=0 to 10 do // Второй уровень
        begin
          sTreeView1.Items.Addchild(sTreeView1.Items.Item[q],'2');
           e:=w;
                            for k:=0 to 10 do // Третий уровень
                              begin
                                sTreeView1.Items.Addchild(sTreeView1.Items.Item[w],'3');
                                e:=e+1;
                              end;
        w:=e+1;
        end;
q:=w+1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    Level1Node,Level2Node,Level3Node :TTreeNode;
begin
  for i := 0 to 2 do begin
    Level1Node:=TreeView1.Items.AddChild(nil,IntToStr(i));
    Level1Node.ImageIndex:=0;
    for j:=0 to 2 do begin
     Level2Node:=TreeView1.Items.AddChild(Level1Node,IntToStr(j));
     Level2Node.ImageIndex:=1;
     for k:=0 to 2 do begin
      Level3Node:=TreeView1.Items.AddChild(Level2Node,IntToStr(k));
      Level3Node.ImageIndex:=2;
    end;
    end;
  end;
end;