Children := TObjectList.Create();
  SubTags := TIEDicomTags.Create();
  SubTags.Sorted := false;

  SubTags.SetTagNumeric( $4, $1400, 0, False );
  SubTags.SetTagNumeric( $4, $1410, 65535, False );
  SubTags.SetTagNumeric( $4, $1420, 0, False );
  SubTags.SetTagString( $4, $1430, 'PATIENT', False );

  SubTags.SetTagNumeric( $4, $1400, 0, False );
  SubTags.SetTagNumeric( $4, $1410, 65535, False );
  SubTags.SetTagNumeric( $4, $1420, 0, False );
  SubTags.SetTagString( $4, $1430, 'STUDY', False );

  SubTags.SetTagNumeric( $4, $1400, 0, False );
  SubTags.SetTagNumeric( $4, $1410, 65535, False );
  SubTags.SetTagNumeric( $4, $1420, 0, False );
  SubTags.SetTagString( $4, $1430, 'SERIES', False );

  SubTags.SetTagNumeric( $4, $1400, 0, False );
  SubTags.SetTagNumeric( $4, $1410, 65535, False );
  SubTags.SetTagNumeric( $4, $1420, 0, False );
  SubTags.SetTagString( $4, $1430, 'IMAGE', False );
  SubTags.SetTagString( $4, $1500, 'C:\FileName.jpg', False );

  Children.Add( SubTags );
  ImageEnMView1.MIO.Params[0].DICOM_Tags.AddTag( 4, $1220, dvSQ, nil, -1, Children );