function distance(a, b: TPoint): double; 
var 
  dx, dy: integer; 
begin 
  dx := a.x - b.x; 
  dy := a.y - b.y; 
  result := sqrt(dx * dx + dy * dy); 
end; 
 
// Beispielaufruf 
 
procedure TForm2.Button2Click(Sender: TObject); 
var 
  i: integer; 
begin 
  i := round(distance(point(11, 107), point(130, 129))); 
  showmessage(inttostr(i)); 
end;