Source position: Img32.pas line 707
procedure RectWidthHeight(
const rec: TRect;
out width: Integer;
out height: Integer
);