Изменить ключ объекта
procedure ChangeObjectStr(aOldObjectKeyStr, aNewObjectKeyStr: string; aSection: integer = 0; aGroupStr: string = '');
aOldObjectKeyStr
aNewObjectKeyStr
aSection