Bevel auf einem Rechteck

[Chris211183]

soweit alles schick, er macht bloß Zicken mit der eigentlichen Breite des Rahmens (nicht die Ränder)
hab ne Property mitBarWidth deklariert und im Create auch den festen Wert 10 zugewiesen.
Rückgabewert Integer und als Procedure F... := Value;

er macht das aber nicht

er soll immer 10 breit bleiben, egal was ich tue, aber irgendwie willer nicht