ImageEnView1.IO.ParamsFromFile( 'C:\image.dicom' );
s := ImageEnView1.IO.Params.DICOM_Tags.GetTagString( $4, $1430 );

var
  IO: TImageEnIO;
begin
  // Write dicom test tag
  IO := TImageEnIO.Create(NIL);
  IO.LoadFromFileDicom( 'D:\Testing_Multimedia\Dicom\ADXFILE000164.dcm' );
  try
    IO.Params.DICOM_Tags.SetTagString( $4, $1430, 'STUDY', False );
    IO.SaveToFileDicom( 'D:\test.dicom' );
  finally
    IO.Free;
  end;

  // Check for dicom test tag
  ImageEnView1.IO.ParamsFromFile( 'D:\test.dicom ');
  Caption := ImageEnView1.IO.Params.DICOM_Tags.GetTagString( $4, $1430 );
end;