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;