Div by zero
in UGeometric.pas
function LineIntersect(LineAP1, LineAP2, LineBP1, LineBP2: TPoint): TPoint;
Line 113
LDetDivInv := 1 / ((LDiffLA.X * LDiffLB.Y) - (LDiffLA.Y * LDiffLB.X));
LDiffLB = (0,0)
~"#0 0x00440c41 in LINEINTERSECT (LINEAP1=..., LINEAP2=..., LINEBP1=..., LINEBP2=..., result=...) at UGeometric.pas:113\n"
~"#1 0x0043d0ee in TENGINE__SHIFTTRACKPOINTS (this=0x2f9c50) at UEngine.pas:1814\n"
~"#2 0x00438587 in TMETROLINE__CONNECTSTATION (STATION=0x24e398, LINESTATIONDOWN=0x313970, LINESTATIONUP=0x313eb0, this=0x23ef58) at UEngine.pas:888\n"
~"#3 0x0043e1c7 in TENGINE__MOUSEMOVE (POSITION=..., this=0x2f9c50) at UEngine.pas:2028\n"
~"#4 0x004361bd in TFORMMAIN__PAINTBOX1MOUSEMOVE (SENDER=0x26a930, SHIFT=..., X=485, Y=451, this=0x269a60) at ./Forms/UFormMain.pas:90\n"
~"#5 0x0052f23c in MOUSEMOVE (this=0x26a930, SHIFT=..., X=485, Y=451) at include/control.inc:4425\n"
~"#6 0x0052ef6d in WMMOUSEMOVE (this=0x26a930, MESSAGE=...) at include/control.inc:4384\n"
LINEAP1={X = 498, Y = 538}
LINEAP2={X = 515, Y = 555}
LINEBP1={X = 515, Y = 555}
LINEBP2={X = 515, Y = 555}
RESULT=0x262f7b4
LDETLINEA=-680
LDETLINEB=0
LDETDIVINV=1.1945305291614955e+103
LDIFFLA={X = -17, Y = -17}
LDIFFLB={X = 0, Y = 0}
LINEINTERSECT=0x262f7b4