var i: Integer; lList: TObjectList; begin lList := TObjectList.Create; for i := 1 to 10 do lList.Add(TMyObject.Create); // ...