Создание формы с круглыми краями

Procedure TfrmMain.FormCreate(Sender: TObject);
Var
    Rgn: HRGN;
Begin
    //закругленные углы формы
    Rgn := CreateRoundRectRgn(0, //x-coordinate of the region's upper-left corner
        0, //y-coordinate of the region's upper-left corner
        ClientWidth, //x-coordinate of the region's lower-right corner
        ClientHeight, //y-coordinate of the region's lower-right corner
        70, //height of ellipse for rounded corners
        70); //width of ellipse for rounded corners
    SetWindowRgn(Handle, Rgn, True);
End;