[FreakaZoid2]

first time empty next time with data....

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