procedure TMainForm.btnSaveClick(Sender: TObject);
var
  i : integer;
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 );
  end;
end;

function DicomToJpg(filename: string): string;
var
  i : integer;
  imgEn: TImageEnMView;
  fName: string;
begin
  imgEn := TImageEnMView.Create(nil);
  try
    fname := ChangeFileExt(filename,'.jpg');
    imgEn.MIO.LoadFromFileDICOM(filename);
    imgEn.MIO.Params[0].SamplesPerPixel := 3;
    imgEn.MIO.Params[0].BitsPerSample := 8;
    imgEn.MIO.DuplicateCompressionInfo;
    for i := 0 to imgEn.ImageCount - 1 do
    begin
      imgEn.GetTIEBitmap(i).Write(fname);
      imgEn.ReleaseBitmap(i);
    end;
    imgEn.MIO.SaveToFile(fName);
    Result := fName;
  finally
    FreeAndNil(imgEn);
  end;
end;

for i := 0 to imgEn.ImageCount - 1 do
    begin
      if not imgEn.GetTIEBitmap(i).Write(ChangeFileExt(filename,'_'+IntToStr(i+1)+
        ExtractFileExt(filename))) then
      ShowMessage('Error saving ' + filename);   
      imgEn.ReleaseBitmap(i);
    end;
    imgEn.MIO.SaveToFile(result); //Delete this line

function DicomToJpg(filename: string): string;
var
  i : integer;
  imgEn: TImageEnMView;
begin
  imgEn := TImageEnMView.Create(nil);
  try
    result := ChangeFileExt(filename,'.jpg');
    imgEn.MIO.LoadFromFileDICOM(filename);
    imgEn.MIO.Params[0].SamplesPerPixel := 3;
    imgEn.MIO.Params[0].BitsPerSample := 8;
    imgEn.MIO.DuplicateCompressionInfo;
    for i := 0 to imgEn.ImageCount - 1 do
    begin
      imgEn.GetTIEBitmap(i).Write(ChangeFileExt(filename,'_'+IntToStr(i+1)+
        ExtractFileExt(filename)));
      imgEn.ReleaseBitmap(i);
    end;
    imgEn.MIO.SaveToFile(result);
  finally
    FreeAndNil(imgEn);
  end;
end;

  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    ImageEnMView1.GetTIEBitmap(i).Write( ChangeFileExt( SaveImageEnDialog1.FileName, '_' + IntToStr( i + 1 ) + ExtractFileExt( SaveImageEnDialog1.FileName )));
    ImageEnMView1.ReleaseBitmap(i);
  end;