FireMonkey Mobile：打开错误的表单

Question

procedure TForm.FormResize(Sender: TObject);
begin
Application.FormFactor.Orientations := [TFormOrientation.Landscape];
end;

表单打开宽度，一切都很好。但如果它被折叠和扩展，那么就会出现毛刺（截图），形状变得扭曲，好像首先是端口然后是LANDSCAPE。 （黑区是我的申请）