TCanvas: Probleme mit Form-Umrandung

[Helmi]

Hallo,

anbei ein Test-Projekt von mir.

Dort wird ein BalloonTip erzeugt und im OnPaint der Form die komplette Form umrandet.

Mit

Code:

//Rahmen um den Balloon zeichnen
Pen.Width := PenWidth_BalloonTip;
Pen.Color := PenColor_Rand;
RoundRect(0, 0, Form_Width, Form_Height - C, C, C);

wird ein schwarzer Rahmen um den BalloonTip gezeichnet - mein Problem ist hierbei, dass die Rahmenstärke sichtbar nicht überall gleich dick ist und dass links die Form-Farbe (rot) noch durchscheint.

Mit

Code:

//Rahmen um den Pfeil zeichnen
Pen.Width := PenWidth_Pfeil;
Pen.Color := PenColor_Rand;
Polyline(Points_Framework);

wird ein schwarzer Rahmen um den Pfeil gezeichnet. Das geht soweit auch gut, aber nur nach Art des Pfeils (Links (L), Rechts (R), Mitte (M)) ist die Rahmenstärke anders.

Mit

Code:

Pen.Width := PenWidth_Pfeil;
Pen.Color := Color;

Rect.Top    := Form_Height - C - PenWidth_BalloonTip;
Rect.Bottom := Form_Height - C;
Rect.Left   := Points_Framework[0].X + PenWidth_BalloonTip;
Rect.Right  := Rect.Left + C - PenWidth_Pfeil + 1;

Rectangle(Rect);

wird der schwarze Strich zwischen BalloonTip und Pfeil mit der Form-Farbe übermalt.

Jetzt meine Fragen:
Wie bekomme ich es hin, dass überall (sichtbar) die gleiche Strichstärke ist?
Warum scheint links die Form-Farbe durch und wie kann ich es verhindern?

mfg
Helmi