TreeView - AddObject Pointerproblem

[Neutral General]

Hi,

Ich füge so Nodes hinzu:

Delphi-Quellcode:

 
var tmp: TAnswer;
begin
  if TreeView1.Selected.IsFirstNode then
  begin
    // dieses TreeView1.Selected.Data wurden im FormCreate schon gesetzt...
    tmp := PDialogue(TreeView1.Selected.Data)^.Answers.Add('Neue');
    tmp.Text.Add('Bitte Text einfügen');
    TreeView1.Items.AddChildObject(TreeView1.Selected,'Neue',@tmp);
  end
  else
  begin
    // Wenn man auf ein Child-Node ausgewählt hat
    // TreeView1.Selected.Data müsste jetzt ein @tmp sein das oben in dem Node gespeichert wurde
    // Das ist es auch.. aber komischerweise ist PAnswer(TreeView1.Selected.Data)^.Answers = nil
    tmp := PAnswer(TreeView1.Selected.Data)^.Answers.Add('Neue'); // AV
    tmp.Text.Add('Bitte Text einfügen');
    TreeView1.Items.AddChildObject(TreeView1.Selected,'Neue',@tmp)
  end;

Es steht alles im Quelltext.. Ich verstehe halt nicht warum dann Answers = nil ist...
Wenn ihr nicht kapiert was ich will dann schreibt das bitte

Gruß
Neutral General