یا با دستور زیر در oncreate فرم اصلی تون قابلیت چرخش برنامه تون رو غیرفعال کنید،
var ScreenService : IFMXScreenService; OrientSet : TScreenOrientations;
begin
//+Disable Auto Rotate
if TPlatformServices.Current.SupportsPlatformService( IFMXScreenService) then
begin
ScreenService := TPlatformServices.Current.GetPlatformService
(IFMXScreenService) as IFMXScreenService;
OrientSet := [TScreenOrientation.soPortrait];
ScreenService.SetScreenOrientation(OrientSet);
end;
//+Disable Auto Rotate
ویا با همین فرمان به جای soPortrait را به soLandscape تغییر دهید تا برنامه بصورت افقی اجرا بشود.