在OnRotate按下面的添加就可以强制指定横屏或竖屏了。

procedure TAndroidModule1.AndroidModule1Rotate(Sender: TObject;
  rotate: TScreenStyle);
begin
  if rotate = ssLandscape then   // device is on horizontal...
         Self.SetScreenOrientationStyle(ssPortrait);     //force Portrait...
end;