TSecondObject=class; Tobject1=class ListObjects:TList; end; TSecondObject=class object1: Tobject1; end;