function Signed(x1, y1, x2, y2, Px, Py: Double): Double;begin Result := (x2 - x1) * (py - y1) - (px - x1) * (y2 - y1);end;(* End Of Signed *)