Die Lösung war die Gaußsche Trapezformel.
Delphi-Quellcode:
var
P: Array of TPoint;
n,i: Word;
Summe: Extended;
...
Summe:= 0;
n:= Length(P);
for i:= 0 to n-1 do Summe:= Summe+(P[i].Y+P[(i+1) mod n].Y)*(P[i].X+P[(i+1) mod n].X);
Wenn Summe>0 dann Uhrzeigersinn, sonst Gegenuhrzeigersinn.
Gruß und Danke an alle!
e-gon