Помогите TreeView и цифровые значения

[Evgeniy26]

node.data:=1;

Такая конструкция не допустима т.к Date является типа Pointer. evg_m с чего вы взяли, что Date предназначено для хранения пользовательской информации.

[Stilet]

то Date предназначено для хранения пользовательской информации.

Потому что

Points to application-defined data associated with the tree node.

т.е. фактически для хранения пользовательских данных, ассоциированных с узлом.

у меня выделяет красным

Что выделяется?
Показывай полностью код и строку на которой ошибка.

[Evgeniy26]

Stilet спасибо.
Тогда скорей всего надо так

node.date := Pointer(1)

[nusik]

Вот смотри пример как я использовал
TreeView1.Items[i].Data:=Pchar(StringGrid1.Cells[2,StringGrid1.Cols[1].IndexOf(TreeView1.Items[i].Text)])
Это свойство имеет тип Pointer;
Так что если тебе нужно то пиши

     i:=123;
     node:=TreeView1.Items[0];
     node.Data:=@i;

[Stilet]

Так что если тебе нужно то пиши

Я бы так не делал. Если I локальная, то node.data Будет указывать на мусор после выхода из блока.
Вон Евгений26 верно показал.

[Evgeniy26]

Все равно придется определять, что добавляем.

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

  function isInt(Str: String): Boolean;
  var
    i: Integer;
  begin
    Result := True;
    for i := 1 to Length(Str) do
      if not (Str[i] in ['0'..'9']) then
      begin
        Result := False;
        break;
      end;
  end;

begin
  if (Button= mbright) and (sender is TTreeView) and
  (TTreeView(sender).Selected <> nil) and
  (isInt(TTreeView(sender).Selected.text)) then
    PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
end;