procedure TForm10.FormCreate(Sender: TObject);
begin
Panel1.Color:=clHighlight;
SetWindowRgn(Panel1.handle,CreateRoundRectRgn(0,0,panel1.width,Panel1.height,50,50),true);
end;

 Panel1的BevelInner 及 BevelOuter 最好设成 bvNone