TreeView-Bug beim onEdited-Event? Daten sind durcheinander!

[busybyte]

also mit dem anschliessenden S:=Node.Text; bin ich voll zufrieden, mit der Message kommt es auf nen Versuch an ob die vor oder nach dem Rücksprung in die Procedure edit(protected) des treeviews abgearbeitet wird.

Delphi-Quellcode:

unit ComCtrls;

procedure TCustomTreeView.Edit(const Item: TTVItem);
var
  S: string;
  Node: TTreeNode;
begin
  with Item do
  begin
    Node := GetNodeFromItem(Item);
    if pszText <> nil then
    begin
      S := pszText;
      if Assigned(FOnEdited) then FOnEdited(Self, Node, S);
      if Node <> nil then Node.Text := S;
    end
    else if Assigned(FOnCancelEdit) then FOnCancelEdit(Self, Node);
  end;
end;