Изменить идентификатор объекта
procedure ChangeObjectKey(aOldObjectKey, aNewObjectKey: int64; aSection: integer = 0);
aOldObjectKey
aNewObjectKey
aSection