VirtualTreeView: Es klappt nicht ganz

[JPSelter]

Hier etwas Code, es klappt immernoch nicht:

Delphi-Quellcode:

procedure updateSession;
var Data: PTreeData;
begin
  Form1.VST1.BeginUpdate();
  Data := Form1.VST1.GetNodeData(currentNode);
  TSessionObject(Data.FObject).datum:=datetimetounix(Form1.DateTimePicker1.date);
  [...]
  Form1.VST1.EndUpdate();
  Form1.VST1.InvalidateNode(currentNode);
end;

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if editmode then
    updatePoint
  else
    insertPoint;
  saveTree;
  editmode:=false;
  close;
end;

currentNode ist global und enthält die aktuell selektierte Node.