[zip000]

Можно использовать регионы, но получается не очень красиво.

Код:

var
  rgn : HRGN;
begin
  rgn := CreateRoundRectRGN(0, 0, Button1.Width, Button1.Height, 15, 15);
  SetWindowRGN(Button1.Handle, rgn, True);
  DeleteObject(rgn);
end;