procedure TMainForm.btnSaveClick(Sender: TObject);
var
  i: Integer;
  BMP : TBitmap;
begin
  SaveImageEnDialog1.AutoSetFilterFileType := -1;
  SaveImageEnDialog1.FileName := '';
  if SaveImageEnDialog1.Execute then
  begin
    //set output pixel format to 24 bit
    ImageEnMView1.MIO.Params[0].SamplesPerPixel := 3;
    ImageEnMView1.MIO.Params[0].BitsPerSample := 8;
    ImageEnMView1.MIO.DuplicateCompressionInfo;
    for i := 0 to ImageEnMView1.ImageCount - 1 do
    begin
      ImageEnMView1.GetTIEBitmap(i).PixelFormat := ie24RGB;
      ImageEnMView1.ReleaseBitmap(i);
    end;
   ImageEnMView1.MIO.SaveToFile(SaveImageEnDialog1.FileName); <-- This line do noting.
  end;
end;

..\ImageEn\Demos\InputOutput\DicomRange