[mirt steelwater]

ок. есть такая проблема:
я пытаюсь сохранить в поле Data указатель на объект, но либо он неверно сохраняется либо я что-то не то делаю..

Код:

obj := TMyObject.Create;
TreeView1.Data := Pointer (obj);
ShowMessage ( PMyObject (TreeView1.Data)^.Name );
if Assigned (obj) then
    FreeAndNil (obj);

выведет пустую строку