procedure TForm1.FormCreate(Sender: TObject);
var
  rgn: HRGN;
begin
  Form1.Borderstyle := bsNone;
  rgn := CreateRoundRectRgn(0,// X-координата левого верхнего угла
  0, // Y-координата левого верхнего угла
  ClientWidth, // X-координата нижнего правого угла
  ClientHeight, //Y-координата нижнего правого угла
  40, // Высота скругления угла
  40); // ширина скругления угла
  SetWindowRgn(Handle, rgn, True);
end