TreeView gibt über Data nicht die richtigen Daten zurück

[the_real_didi]

Hallo,

Also ich habe eine Treeview, die ich aus einer Datenbank mit Werten füttere.
in der .Data Property speichere ich die ID des Datensatzes und eine Variable Typ.

Code:

 TDatensatz = record  
    ID: string;  
    Typ: integer;  
  end;

Dazu hab ich eine globale Variable

Code:

 Datensatz: ^TDatensatz;

Das füllen der Treeview ist auch noch kein Problem.

Code:

 procedure TForm1.wsgQuery1AfterScroll(DataSet: TDataSet);  
var node2, node3: TTreenode;  

 
begin  
  treeview1.Items.Clear;  
  treeview1.Items.BeginUpdate;  
  while not wsgquery2.Eof do  
  begin  
    node2 := treeview1.Items.Addchild(nil, wsgQuery2.fieldByName('Bezeichnung').asstring);  
    node2.ImageIndex := 2;  
    node2.SelectedIndex := 0;  
    node2.Selected := true;  
    New(Datensatz);  
    Datensatz^.Typ := 2;  
    Datensatz^.ID := wsgQuery2.FieldByName('ID_Gewerk').AsString;  
    Node2.Data := Datensatz;  
    while not wsgquery3.Eof do  
    begin  
      node3 := treeview1.Items.Addchild(node2, wsgQuery3.fieldByName('Anfragedatum').asstring);  
      node3.ImageIndex := 3;  
      node3.SelectedIndex := 0;  
      node3.Selected := true;  
      New(Datensatz);  
      Datensatz^.Typ := 3;  
      Datensatz^.ID := wsgQuery3.FieldByName('ID_Anfrage').AsString;  
      Node3.Data := Datensatz;  
      wsgQuery3.next  
    end;  
    wsgQuery2.next;  
  end;  
  treeview1.Items.EndUpdate;  
  treeview1.FullExpand;  
end;

Die Probleme bekomme ich, wenn ich die Daten des gerade gewählten abfragen will.
Mit der folgenden Variante bekomme ich zwar ergebnisse, aber es sind nicht die richtigen. Der Typ wird nicht korrekt ausgegeben. Ich habe das gefühl, dass die Daten vom letzten bearbeiteten Knoten stammen. aber nicht vom aktuell gewählten.

Code:

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;  
  var AllowChange: Boolean);  
begin  
if assigned(Datensatz) then  
begin  
  showmessage('JETZT!!! Changing');  
  showmessage(inttostr(Datensatz^.Typ));  
  if Datensatz^.Typ = 2 then  
  begin  
    showmessage(Datensatz^.ID);  
  end;  
end  
else  
begin  
  showmessage('Noch nicht ...');  
end;  
end;

Und wenn ich es so Versuche, bekomme ich eine Zugriffsverletzung

Code:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);  
begin  
if assigned(Datensatz) then  
begin  
  showmessage('JETZT!!! Change');  
  showmessage(inttostr(TDatensatz(treeview1.selected.Data^).Typ));  
  if Datensatz^.Typ = 2 then  
  begin  
    showmessage(Datensatz^.ID);  
  end;  
end  
else  
begin  
  showmessage('Noch nicht ...');  
end;  
end;

Mein Ziel ist eigentlich beim anklicken eines Knotens auf den dazugehörigen Datensatz zu springen. Das sollte dann auch kein Problem sein, wenn mir die Treeview die richtigen Daten bereit stellt.

Bitte helft mir.
Danke