Чертане

Здравейте. Имам окръжност, точка от нея в градуси GrT, преобразувана в радиани: Otm := GrT*pi/180. Искам да нарисувам текст (ТЕ) на окръжността с известни градуси (GR), отместен от дадената точка с Otm. Използвам формулата за окръжност, но не мога да разбера къде ми е грешката:

TextOut(CenterX + Round(Radius * cos(Otm+GR*RE)) - TextHeight('ТЕ'),
CenterY + Round(Radius * sin(Otm+GR*RE))-TextHeight('TE'),'TE');

CenterX, CenterY - центърът на окръжността;
Radius - радиусът на окръжността;
RE = pi/180 - за да преобразувам в радиани;

Някой може ли да помогне?

TextOut(CenterX + Round(Radius * cos(Otm+GR*RE)) - TextHeight('ТЕ'),
CenterY + Round(Radius * sin(Otm+GR*RE))-TextHeight('TE'),'TE');

чети и дишай по-леко

И без него не става. Удебеленото само премества текста да не е точно върху окръжността. Сега видях, че за другите точки за отместването съм използвал друга формула:

TextOut(CenterX + Round((Radius-65)*cos(Otm+GR*RE)) - TextHeight('ТЕ'),
CenterY - Round((Radius-65)*cos(Otm+GR*RE))-TextHeight('TE'),'TE');

Обаче и с нея не става. Цвъка ги както си иска. Въобще не мога да схвана по каква логика ги слага на различни места.