du brauchst die Objekte nicht erst zum Pointer machen, wenn du sie hinzufügst. Das sind sie schon.
Du kannst sie einfach so einfügen:
Delphi-Quellcode:
//bsp TList
lst.Add( MyObject );
//bsp TStringlist
lst.AddObject( 'Mein Objekt', MyObject );
//bsp listitem
li.Data = MyObject
//etc...