Algorithm Math Delphi

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