Graphic Delphi

Title: How to Signed Volume in 2D
unction Signed(x1, y1, x2, y2, Px, Py: Double): Double;
begin
Result := (x2 - x1) * (py - y1) - (px - x1) * (y2 - y1);
end;
(* End Of Signed *)