Farbigen Rand um Form zeichnen

[renekr]

Hallo,

Ich habe eine Form mit borderstyle = none.
So nun habe ich der Form auch noch Runde Ecken gemacht und würde nun gerne auch noch eine Farbige Linie um die Form zeichnen.
Nur macht er um die Ecke keine Farbe hin und auch unten und rechts nicht wenn ich die Ecken gerundet habe.

Code fürs Farbig machen.
Farbigen Rand

Code zum Runden:

Delphi-Quellcode:

procedure TForm1.Make_Form_Round;
var
  rgn: HRGN;
begin
//  Form1.Borderstyle := bsNone;
  rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
    0,            // y-coordinate of the region's upper-left corner
    ClientWidth,  // x-coordinate of the region's lower-right corner
    ClientHeight, // y-coordinate of the region's lower-right corner
    30,           // height of ellipse for rounded corners
    30);          // width of ellipse for rounded corners
  SetWindowRgn(Handle, rgn, True);
end;

Kann mir ev. jemand einen Tipp geben ?

Vielen Dank.