Графика. Построение функции

[AngelOfDeath]

Пишу программу построение графика функции
И тут возникла такая проблема
В данной процедуре:

procedure TFunc.Paint;
begin
buf.Canvas.Pen.Style:=psSolid;
Buf.Canvas.MoveTo(sx,sy);
buf.Canvas.TextOut(sx,sy+3,'('+FloatToStr((Form2.sX-sx)/50));
Buf.Canvas.LineTo(x,y);
end;

buf.Canvas.TextOut(sx,sy+3,'('+Floa tToStr((Form2.sX-sx)/50)); рисует лишнее (черту над текстом) это мне не нужно
Что мне сделать с этим?
С тем что там координата уходит в минус я разберусь
А вот с этим не получается

[mihali4]

Давайте посмотрим, что вы выдаете в качестве текста.
Меня как-то очень смущает левая скобка в апострофах. Вам так выводить нужно: (2.45634 к примеру?
А по поводу подчеркивания:
перенесите строку Buf.Canvas.LineTo(x,y); выше, сразу после Buf.Canvas.MoveTo(sx,sy);
Вдруг поможет?
Потом. У канвы есть свойство FONT. Вы уверены, что у вас не выбран подчеркнутый шрифт?

[AngelOfDeath]

Меня как-то очень смущает левая скобка в апострофах. Вам так выводить нужно: (2.45634 к примеру?

Это я не полностью дописал
Я собирался выводить так (2.45634; 3.5547)

А по поводу подчеркивания:
перенесите строку Buf.Canvas.LineTo(x,y); выше, сразу после Buf.Canvas.MoveTo(sx,sy);

Вот это помогло

Потом. У канвы есть свойство FONT. Вы уверены, что у вас не выбран подчеркнутый шрифт?

Черта шла над текстом

P.S. Это уже похоже на основу графического редактора))