Form um Buttons zeichnen klappt nicht so ganz

[-=cats=-]

Hi

Es ist wie verflixt ... Ich komme mal wieder nicht
weiter.
Ich habe jetzt mal versucht, meine Form um die
Buttons zu zeichnen. Nur irgendwie habe ich wohl
die Punkte nicht so ganz richtig angegeben ...
ich komme nicht weiter ...

Hier mein Quellcode:

Delphi-Quellcode:

procedure TForm20.FormCreate(Sender: TObject);
 var HR : HRgn;
n : array [0..27] of TPoint;
begin
 n[0] := Point(LMDShapeButton1.Left + 40, LMDShapeButton1.Top); // P1
 n[1] := Point(LMDShapeButton1.Left + 80, LMDShapeButton1.Top + 6); // P2
 n[2] := Point(LMDShapeButton1.Left + 80, LMDShapeButton1.Top + 59); // P3
 n[3] := Point(LMDShapeButton5.Left + 80, LMDShapeButton5.Top + 6); // P4
 n[4] := Point(LMDShapeButton5.Left + 80, LMDShapeButton5.Top + 59); // P5
 n[5] := Point(LMDShapeButton5.Left + 40, LMDShapeButton5.Top + 65); // P6
 n[6] := Point(LMDShapeButton2.Left + 80, LMDShapeButton2.Top +59); // P7
 n[7] := Point(LMDShapeButton6.Left + 80, LMDShapeButton6.Top + 6); // P8
 n[8] := Point(LMDShapeButton6.Left + 80, LMDShapeButton6.Top + 59); // P9
 n[9] := Point(LMDShapeButton6.Left + 40, LMDShapeButton6.Top + 65); // P10
 n[10] := Point(LMDShapeButton7.Left + 80, LMDShapeButton7.Top + 59); // P11
 n[11] := Point(LMDShapeButton8.Left + 80, LMDShapeButton8.Top + 6); // P12
 n[12] := Point(LMDShapeButton8.Left + 80, LMDShapeButton8.Top + 59); // P13
 n[13] := Point(LMDShapeButton8.Left + 40, LMDShapeButton8.Top + 65); // P14
 n[14] := Point(LMDShapeButton8.Left, LMDShapeButton8.Top + 6); // P15
 n[15] := Point(LMDShapeButton9.Left + 40, LMDShapeButton9.Top + 65); // P16
 n[16] := Point(LMDShapeButton9.Left, LMDShapeButton9.Top + 59); // P17
 n[17] := Point(LMDShapeButton9.Left, LMDShapeButton9.Top + 6); // P18
 n[18] := Point(LMDShapeButton9.Left + 40, LMDShapeButton9.Top); // P19
 n[19] := Point(LMDShapeButton7.Left, LMDShapeButton7.Top + 6); // P20
 n[20] := Point(LMDShapeButton3.Left, LMDShapeButton3.Top + 59); // P21
 n[21] := Point(LMDShapeButton3.Left, LMDShapeButton3.Top + 6); // P22
 n[22] := Point(LMDShapeButton3.Left + 40, LMDShapeButton3.Top); // P23
 n[23] := Point(LMDShapeButton2.Left, LMDShapeButton2.Top + 6); // P24
 n[24] := Point(LMDShapeButton4.Left, LMDShapeButton4.Top + 59); // P25
 n[25] := Point(LMDShapeButton4.Left, LMDShapeButton4.Top + 6); // P26
 n[26] := Point(LMDShapeButton4.Left + 40, LMDShapeButton4.Top); // P27
 n[27] := Point(LMDShapeButton1.Left, LMDShapeButton1.Top + 6); // P28

 HR := CreatePolygonRgn(n, 28, ALTERNATE);
 SetWindowRgn(Handle, HR, true);

end;

Habe mal einen Screenshot angehängt.
Vielleicht sieht ja jemand mein Problem ...
(nicht erschrecken, es sieht wirklich grausam aus )

Alles was rosa ist, gehört zur Form und sollte eigentlich nicht
zu sehen sein.
Die Buttons sollte man komplett erkennen können...

Vielen Dank schon mal für Eure Hilfe !!!

Gruß,
-=cats=-

Vielleicht sollte ich noch erwähnen, das meine Buttons
die Maße 65 (hoch) x 80 (breit) haben. Daher komme ich auf
diese Berechnungen. Und die Kante ist glaub ich 6 Pixel.