var Data: PMenuData; begin if not Assigned(Node) then Exit; Data:=VST.GetNodeData(Node); if Data.FObject <> nil then CellText := (TMenuClass(Data.FObject).Name);