Загрузить объект в контейнер
function AddObject(aObjectKeyStr: string; aObjectPtr: TObject = nil;
flReplaceIfExists: boolean = true; aSection: integer = 0;
aGroupStr: string = ''): boolean;
aObjectKeyStr
aObjectPtr
flReplaceIfExists
aSection
aGroupStr
false если объект с указанным названием уже загружен в контейнер, иначе true
Используется для объектов, имеющих адрес