[Klyaksa]

Дайте код-то свой, а то получается постановка диагноза по фотографии...

Код:

rast:=3.87;//константа
......
xrsa:=x1-bx;
yrsa:=y1-by;
karta.Canvas.MoveTo(x1,y1);
karta.Canvas.LineTo(bx,by);
rrsa:=(round(sqrt(abs(sqr(xrsa)+ sqr(yrsa)))*rast));
pos.Caption:=format('Длина~=%d',[rrsa]);