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
The attachment is a sample JPG file
Thanks for the report, fixed.