Обьекты из списка и переменная. Что туда поподает, сам обьект или ссылка на него?

[Человек_Борща]

Доброго времени суток!

Вот такое привело меня в замешательство:
Есть некий список объектов(TObjectList) в нем живут TObject и так же объявлен pObject = ^TObject;

На некоторой форме не хочу громоздить:
FactoryList.Factory[Id].List1[X1].Object[X] таки сложные цепи.

Решил по хитрому:
В Var секции объявил:
EditableObject:TObject;

В форму пнул свойство SetObjectID где:

EditableObject:=FactoryList.Factory[Id].List1[X1].Object[X];

В EditableObject переходит сам объект или только указатель на него?

Может надо бы:
В Var секции объявил:
EditableObjectObject;

В форму пнул свойство SetObjectID где:

EditableObject:=@FactoryList.Factory[Id].List1[X1].Object[X];

[Аватар]

Есть некий список объектов(TObjectList) в нем живут TObject

Живут ссылки на TObject, а не объекты. И любое выражение вида xObject:=TObject.Create создает сам объект и в xObject хранится ссылка на объект. Аналогично и свойство такого типа возврвщает ссылку на объект

[Stilet]

pObject = ^TObject;

Стесняюсь спросить, а это зачем?

[Человек_Борща]

Нужно чтобы вытаскивать данные из указателя.

function TClassesViewFrame.HaveObject(Node: PVirtualNode;
  out Obj: TClassListItem): Boolean;
var
  pData: pClassListItem;
begin
  Result := False;
  Obj := nil;
  if Node = nil then
    Exit;
  pData := Tree.GetNodeData(Node);
  Result := (pData <> nil) and (pData^ is TClassListItem);
  if Result then
    Obj := pData^;
end;

[Аватар]

Что мешает в Data просто присваивать ссылку на объект? ...Data:=x; где x: TClassListItem
и обратно

if Tree.GetNodeData(Node) is TClassListItem then Obj:=TClassListItem(Tree.GetNodeData(Node)) else Obj:=nil;