Tree aus Datenbank füllen - wie vorgehen?

[Grolle]

Hallo,

ich versuche einen Tree aus einer Datenbank zu laden, aber irgendwie finde ich nicht die richtige Lösung. Die Tabelle sieht so aus:

Zitat:

id | parent_id | name

Der Quelltext bisher (nach einigen fehlerhaften Versuchen:

Delphi-Quellcode:

  with searchQuery do
  begin
    SQL.Clear;
    SQL.Text := 'SELECT * FROM icstree ORDER BY parent ASC;';
    Open;
    while not eof do
    begin
      if FieldByName('parent').AsInteger = 0 then //oberste Ebene anhängen
      begin
        tmpNode := main.icstree.Items.AddObject(nil,FieldByName('name').AsString,Pointer(FieldByName('id').AsInteger));
      end
      else
      begin


      end;
...

Hat jemand einen Hinweis bzw. eine Best Practice, wie ich da weitermache?

Viele Grüße ...