关于按钮的有关问题

关于按钮的问题
delphi里能不能作圆角按钮？？？要是可以的话，应该怎么作

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
BtnRgn : HRGN;
TestBtn: TButton;
begin
TestBtn := TButton.Create( self );

TestBtn.Parent := Form1;
TestBtn.Left := 30;
TestBtn.Top := 30;
TestBtn.Width := 120;
TestBtn.Height := 30;
TestBtn.Caption:= 'Round Btn ';
TestBtn.Visible:= true;

BtnRgn := CreateRoundRectRgn ( 0, 0, TestBtn.Width, TestBtn.Height, 8, 8 );
SetWindowRgn ( TestBtn.Handle, BtnRgn, true );
end;