In TreeView eintragen

[devnull]

Hi, kann mir einer sagen, was ich hier gfalsch mache ?

Delphi-Quellcode:

repeat
  readln (t, gruppe);
  readln (t, thema);

  if gruppe = 'Multimedia' then selec := 0;
  if gruppe = 'Windows API' then selec := 1;
  if gruppe = 'Delphi' then selec := 2;

  Form1.TreeView.Items.AddChild(Form1.TreeView.Items[selec], thema);
until EOF (t);

gruppe und thema sind strings.


In der treeview existieren die hauptknoten [Multimedia,Windows API,Delphi].
Das Thema soll immer der jeweiligen Gruppe (Hauptknoten) untergeordnet werden ...

Nach den ersten zwei Eintragungen (die sind richtig) trägt das prog immer alles unter Windows API !!!?

Hoffe ihr könnt mir helfen
devnull