[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;

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