在FromShow事件上面或者FormCreate事件：
 Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];
横屏竖屏自动
Application.FormFactor.Orientations := [TFormOrientation.soLandscape];
只横屏
Application.FormFactor.Orientations := [TFormOrientation.soInvertedLandscape];
只竖屏