Hi,
many thanks for the useful file.
Next minor release will fix this problem. If you want to patch it now please open iedicom.pas and locate the rows (in ReadTag function):
....
case element of
$0002: // Samples per Pixel
SamplesPerPixel := dataint;
$0004: // photometric interpretation
PhotometricInterpretation := AnsiString(data);
....
before the "case" statement insert:
if tags = IOParams.DICOM_Tags then
Hope this helps.