Meinst
Clockwise sowas?
Such mal nach "clockwise" auf der Seite.
So sieht die Funktion bei mir aus:
Delphi-Quellcode:
function TPolygon.IsClockwiseXY: Boolean;
// Paul Bourk - A = Area des Polygons
var
A: Double;
i: Integer;
begin
A := 0;
for i := 0 to Count - 2 do
A := A + (Self[i].X * Self[i + 1].Y - Self[i + 1].X * Self[i].Y);
A := A / 2;
Result := A < 0;
end;
Bin mir aber nicht ganz sicher, ob es das ist, was Du suchst.