150 

   150 

   151         // right border

   151         // right border

   152         iy:= (rightX - mapBorderMargin - mp.x) * b div a + mp.y;

   152         iy:= (rightX - mapBorderMargin - mp.x) * b div a + mp.y;

   153         d:= DistanceI(mp.x - rightX + mapBorderMargin, mp.y - iy).Round;

   153         d:= DistanceI(mp.x - rightX + mapBorderMargin, mp.y - iy).Round;

   154         if t1 > 0 then distR:= d else distL:= d;

   154         if t1 > 0 then distR:= d else distL:= d;

   155     end;

   159     end;

   156 

   160 

   157     if b <> 0 then

   161     if b <> 0 then

   158     begin

   162     begin

   159         // top border

   163         // top border