为什么表单不是自动调整当前分辨率？

我有一个Firemonkey HD应用程序并将其部署在iPad 2上.工作正常.

当我在带有Retina显示屏的iPad 4上部署相同的应用程序时,我遇到了问题.

关键是我在表单上有一些绘图操作,需要精确的表格宽度和高度.

ShowMessage('form wh = ' + FloatToStr(TForm(FImage.Parent.Parent). Width) + ':' + FloatToStr(TForm(FImage.Parent.Parent).Height));

在两台设备上我收到一条消息:

form wh = 1024:748

我需要的是自动更改表单大小.

我该怎么做才能得到它？

更新:我尝试使用Screen.Size.Width但在Retina显示屏上有Screen.Size.Width = 1024.我做错了什么？