Изменить адрес объекта у объекта с заданным строковым значением
function ChangeObject(aObjectKeyStr: string; aObjectNewPtr: TObject; aObjectOldPtr: TObject = nil; aSection: integer = 0; aGroupStr: string = ''): boolean;