BUG in calc TranslateUnits for some images

[DS.Lin]

procedure TMetadata.TranslateUnits(ResolutionUnit: TResolutionUnit; var XRes,  YRes: Single);
....
    XRes := UnitSize / XRes;
    YRes := UnitSize / YRes;

some images, the XRes or YRes is zero, then "divided by zero" exception will raised

[DS.Lin]

The attachment is a sample JPG file

[Galfar]

Thanks for the report, fixed.