Delphi7. Как получить размеры чертежа? (тема закрыта)

[IceGirl]

Необходимо получить размеры чертежа. Чертеж любой, размеры тоже (длина, ширина, радиус, углы наклона и т.п.)
Упростила задачу до невозможности: получить размеры прямоугольника. Но и тут ничего хорошего не получилось.
Делала так:
        Gabarit:=ksRectParam(Kompas.GetParamStruct(ko_RectParam));
        GrGeneralV:=Doc.ksNewGroup(0);
        Doc.ksSelectGroup(grGeneralV,3,-1000,-1000,1001,1001);
        Doc.ksEndGroup;
        Doc.ksGetObjGabaritRect(grGeneralV,Gabarit);
        PointV:=ksMathPointParam(Gabarit.GetpTop);
        PointV1:=ksMathPointParam(Gabarit.GetpBot);
        Showmessage(floattostr(pointv.x));
        Showmessage(floattostr(pointv.y));
        Showmessage(floattostr(pointv1.x));
        Showmessage(floattostr(pointv1.y));

Программа выдает не нули, что радует, но отнюдь не координаты верхнего правого и нижнего левого углов прямоугольника. Что я делаю не так, или может я вообще не те функции использую? Подскажите пожалуйста!

[IceGirl]

Разобралась  Тему можно закрывать!

[А8208]

И что же всё таки надо делать, чтобы работало?