Get distance between 2 points

uses Math;

...

function Distance(XPos, YPos, X, Y: Real): Real;

begin

Result:=sqrt(

Power(XPos-X,2)+Power(YPos-Y,2));

end;