Habs jetzt so gelöst, so funktioniert es endlich:
Delphi-Quellcode:
var
Points: Array of TGPPoint;
PPoints: PGPPoint;
SetLength(Points, 4);
Points[0].X := xBegin;
Points[0].Y := y;
Points[1].X := xEnd;
Points[1].Y := y;
Points[2].X := xEnd+xDelay;
Points[2].Y := y-yDelay;
Points[3].X := xBegin+xDelay;
Points[3].Y := y-yDelay;
PPoints := Pointer(Points);
Graphics.DrawPolygon(GdiPen, PPoints, 4);