TStorage.InsertChild

function InsertChild(index: integer; storeClass: TStorageClass): TStorage; virtual;