Delphi APP运行强制竖屏（或横屏）显示

在开发电视广告机的时候，电视是竖着放的，所以要app竖屏运行，我的电视没有自动旋转功能，就加入如下强制竖屏运行：

procedure SetScreenOrientation;
var
  ScreenService: IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, ScreenService) then
   ScreenService.SetSupportedScreenOrientations([TScreenOrientation.Portrait]);
end;

然后在主窗体里调用：

procedure TFrmMain.FormCreate(Sender: TObject);
begin

 SetScreenOrientation;

end;

Delphi  12 编译通过