Как изменить параметры технических требований в чертеже

[SDV]

Господа, просьба продолжить тему технических требований.
Пытаюсь изменить параметры технических требований в активном документе, а именно: размеры и положение габаритных прямоугольников.
Пробую так:
iKompas := KompasObject(CreateKompasObject); 
iDoc := ksDocument2D(iKompas.ActiveDocument2D);
pTT := iDoc.ksGetReferenceDocumentPart(1);
TTPar := ksTechnicalDemandParam(iKompas.GetParamStruct(ko_TechnicalDemandParam));
TTPar.Init;

iDoc.ksGetObjParam(pTT,TTPar,TECHNICAL_DEMAND_PAR);

iGab := ksDynamicArray(iKompas.GetDynamicArray(RECT_ARR));
iRect := ksRectParam(iKompas.GetParamStruct(ko_RectParam));
iPoint := ksMathPointParam(iKompas.GetParamStruct(ko_MathPointParam));

iGab := ksDynamicArray(TTPar.GetPGab);

iPoint.x := 0;
iPoint.y := 400;
iRect.SetpTop(iPoint);
iPoint.x := 1400;
iPoint.y := 0;
iRect.SetpBot(iPoint);

iGab.ksSetArrayItem(0, iRect);
TTPar.SetPGab(iGab);
iDoc.ksSetObjParam(pTT,TTpar,TECHNICAL_DEMAND_PAR);

Но в документе ничего не происходит. Технические требования остаются в своих габаритах и на своих местах.

Подскажите, что не так.