[NumLock]

Код:

Tobject1=class
ListObjects:TList;
end;

TSecondObject=class
object1: Tobject1;
end;

а так да, подход, скорее всего, не верный.