Fehler mit TreeView

[rantanplan99]

Probiers mal hiermit:

Delphi-Quellcode:

procedure TMainWindow.FormShow(Sender: TObject);
var f: Textfile;
    text: String;
    Node: TTreeNode;
begin
  AssignFile(f, 'Theme.dat');
  if not DirectoryExists('Data') then MkDir('Data');
  if FileExists('Theme.dat') then Reset(f)
  else Rewrite(f);
  while not EOF(f) do begin
    Readln(f, text);
    trim(text);

//  AddFirst brauchst du nicht.
    Node := tvChoice.Items.Add(nil, text);
//  Node ist dein neu ersteller Knoten und der Knoten wird als Knid-Knoten von 'nil' eingefügt, also ganz oben
  end;
  CloseFile(f);
end;