AddChildObject en TreeView

[jars]

Lo acabo de probar como sugeris:

var
numver: Integer;
begin
  numver := QNews.FieldByName('DBN_FILECTRL').AsInteger;
  tv.Items.AddChildObject(tv.Selected, 'New Item', Pointer(numver));
end;

y lo intento mostrar con:

  numver := Integer(tv.Selected.Data);
  showmessage('la version es '+inttostr(numver));

pero agregando un breakpoint tv.Selected.Data = nil