1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var HRgn: THandle; //globale variable

procedure...
var
  s: string;
  b:TBitmap;
begin
  //alte definition löschen
  DeleteObject(HRgn);
  //hilfsbitmap erzeugen
  b:=Tbitmap.create;
  //form und bitmap-größe setzen
  self.width:=200;
  self.height:=200;
  b.width:=self.width;
  b.height:=self.Height;

  //die form-definition
  BeginPath(b.canvas.Handle);
  SetBkMode( b.canvas.Handle, TRANSPARENT );
  b.canvas.Pen.Color:=clBlack;
  b.canvas.Brush.color:=clred;
  //hier die eigentliche definition abgerundetes rechteck über ganze breite mit 20px Abrundung
  b.canvas.RoundRect(0,0,width,height,20,20);
  EndPath(b.canvas.Handle);

  //region erzeugen
  HRgn := PathToRegion(b.canvas.Handle);
  //und zuweisen
  SetWindowRgn(Handle, HRgn, True);
  b.free;
end;                    

1:

    Form1.Brush.Style:=bsClear;