bcb如何实现一个圆形的panel

bcb怎么实现一个圆形的panel
如题
bcb怎么制作圆形panel
请哪位大侠给点代码

[解决办法]

不是大侠的飘过
 
Panel1->Width = 200 ;
Panel1->Height = Panel1->Width ;
Panel1->Color = clRed ;
HRGN hrgnPanel = CreateEllipticRgn(Panel1->ClientRect.left+10,
Panel1->ClientRect.top+10,
Panel1->ClientRect.right-10,
Panel1->ClientRect.Bottom-10) ;
SetWindowRgn(Panel1->Handle,hrgnPanel,TRUE);