form with rounded corners

procedure TForm1.FormCreate(Sender: TObject);
var
regn: HRGN;
begin
Form1.Borderstyle := bsNone;
regn := CreateRoundRectRgn(0, 0,ClientWidth,ClientHeight,40,40);
SetWindowRgn(Handle, regn, True);
end;