Delphi iOS重新启动应用程序背景图像

我希望重新启动图像作为我的应用程序的背景。 目前我正在做这样的事情：

procedure TFormMain.InitRepeat_Background; var P: string; R: TMyRetrieveFileResult; begin P := ''; if ((P = '') and (FScreenOrientation = TScreenOrientation.soPortrait)) then begin P := 'app_background_480x800.png'; end ; if ((P = '') and (FScreenOrientation = TScreenOrientation.soLandscape)) then begin P := 'app_background_800x480.png'; end ; if (P <> '')then begin R := TMyRetrieveFileResult.Create(FBitmapBuffer, '', 0, -1); ReadGenericBitmapOffline(R, '', P); if R.Found then begin ImageBackground.Bitmap.Assign(R.BitmapRef); ImageBackground.WrapMode := TImageWrapMode.iwStretch; end ; end ; end; 

然而，伸展的东西不是最漂亮的（不是最丑的，但仍然）。 有什么办法可以检测出最佳的背景图像（从“启动图像池”）作为背景？

我想我可以尝试检测特定的设备或…尝试检测最接近的屏幕分辨率？ 或者，也许有一个我可以使用的API（无论delphi用来在启动时select启动图像？）