treeview de child node eklemek

[frost majere]

a$agida ki kod ile treeview e eleman eklemek istiyorum, ilk dongu sorunsuz calisiyor, fakat ikinci dongude ki elemanlar, ekledigim ilk eleman altina siralaniyor.
nerede problem olabilir acaba?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i,z : integer;
begin
ZQuery1.SQL.Text := 'SELECT DISTINCT(ATLASNAME) FROM ATLASITEMS';
ZQuery1.Open;
ZQuery1.First;
for i := 0 to ZQuery1.RecordCount -1 do begin
  t.Items.Add(nil,ZQuery1.Fields[0].value);

  ZQuery2.SQL.Text := 'SELECT DISTINCT(GROUPNAME) FROM ATLASITEMS WHERE TITLE=''GROUP'' AND ATLASNAME = ''' + ZQuery1.Fields[0].Value + '''';
  ZQuery2.Open;
  ZQuery2.First;
  for z := 0 to ZQuery2.RecordCount -1 do begin
    t.Items.AddChild(t.Items[i], ZQuery2.Fields[0].value);
    ZQuery2.Next;
  end;
  ZQuery2.Close;
  ZQuery1.Next;
end;
ZQuery1.Close;
end;

[frost majere]

seklinde bir goruntu oluyor, tum elemanlari ilk node ye atiyor, dongude ne gibi bir yanlislik olabilir acaba?

[modigant]

kardeş büyük bir ihtimalle sorunun childnode dan bir yukarı gelmediğinden yani root a geri dönmediğinden kaynaklanıyor.