Bevel auf einem Rechteck

[baumina]

Rechne einfach nicht wie wild die Koordinaten für dein Rectangle aus, sondern nimm einfach nur

R := Rect(1, 1, Width - 1, Height - 1);