Изменить редактируемый подобъект объекта
procedure ChangeEditedSubObject(nSubObject: integer);
nSubObject