It is difficult to know the exact size due math rounding problems.
This formula can only estimate the exact size:
width := trunc(ImageEn.IEBitmap.Width * ImageEn.Zoom / 100);
height := trunc(ImageEn.IEBitmap.Height * ImageEn.Zoom / 100);
While the exact size is (which can change of 0..1 from the estimated one):
width :=ImageEn.XBmp2Scr(ImageEn.IEBitmap.Width) - ImageEn.XBmp2Scr(0);
height := ImageEn.YBmp2Scr(ImageEn.IEBitmap.Height) - ImageEn.YBmp2Scr(0);