TreeView als Ablaufplan selber erstellen

[bis]

Hi Leute, ich sitze seit gestern an einem Problem, ich möchte gerne einen TreeView als Ablaufplan haben, wo der User selber den Ablauf bestimmen kann. Um jetzt den Tree zu erstellen habe ich folgenden Code erstellt :

Code:

procedure TConfigurationMain.category_addClick(Sender: TObject); 
begin 
  if category_tree_view.Items.Count = 0 then 
    category_tree_view.Items.Add(nil,category_name.Text) 
  else begin 
    if category_tree_view.Selected.EditText then 
      category_tree_view.Items.AddChild(category_tree_view.Selected,category_name.Text) 
    else 
      category_tree_view.Items.Add(nil,category_name.Text); 
  end; 
  category_name.Clear; 
end;

Also, wenn ich auf denn Button Klicke soll er einen neuen Eintrag machen, ist nichts makiert, so soll er diesen Eintrag aus dem Edit-Feld als Hauptknotenpunkt machen. Ist ein Punkt makiert, so soll der Eintrag aus dem Edit-Feld als Unterpunkt in den Tree aufgeführt werden. Das mit den Unterpunkten funktioniert ja auch irgendwie. Nur das mit den Weitere haupteinträgen funktioniert nicht richtig. Was mache ich verkehrt ? Hat jemand eine bessere Lösung als die Komponente TTreeView ?