[dapkopoen]

на Image курсором стаBим дBе точки.как сделать чтобы между ними прорисоBалась прямая красного цBета и написалась ее длина.например ышел шоумессадж с надписью "длина столько то".спасибо

[NumLock]

при каждом нечетном OnClick запоминаем позицию курсора в глобальной (классовой) переменной. при каждом четном OnClick рисуем линию:
Canvas.MoveTo(<из глобальной переменной>) - Canvas.LineTo(<текушая позиция>). цвет линии задаем Canvas.Pen.Color:=clRed. длину высчитываем по теореме Пифагора - квадрат гипотенузы равен сумме квадратов катетов. - катеты это разница X2-X1 и Y2-Y1 координат точек курсора.

[dapkopoen]

а кодом можно?в процедуре онклик на некую кнопку

[Pilot_Red]

Сообщение от dapkopoen

а кодом можно?в процедуре онклик на некую кнопку

Да, конечно, лови!

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
d:real;
i:integer
begin
for i:=1 to 1000000 do
begin
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));
form1.canvas.pen.color:=255;
form1.canvas.moveto(x1,y1);
form1.canvas.lineto(x2,y2);
label1.caption:=floattostr(d*d/d);
end;
end;

не забудь Метку на форму кинуть!