procedure TfdmScan.ImageEnMIOAcquireBitmap(Sender: TObject;
  ABitmap: TIEBitmap; var Handled: Boolean);
var
  f:TMemoryStream;
begin
   try
    f:=TMemoryStream.create;
    f.Position:=0;
    FileInThisScanCounter:=FileInThisScanCounter+1;
    ForceDirectories(DirToScanInto);
    ABitmap.VclBitmap.SaveToFile(DirToScanInto+remark+IntToStr(FileInThisScanCounter)+'.tif');
    ShellShowDirectory(DirToScanInto);
    if fProgress.breakFlag then exit;
    Application.ProcessMessages;
  finally
    f.Free;
  end;
end;

procedure TfrmMain.Save1Click(Sender: TObject);
{ Save the all the images as a multi-frame tif file. }
var
  iFilename: string;
begin
  SavePictureDialog1.DefaultExt := 'tif';
  SavePictureDialog1.Filename := 'Untitled.tif';
  if SavePictureDialog1.Execute then
  begin
    Screen.Cursor := crHourglass;
    try
      iFilename := SavePictureDialog1.Filename;
      ImageEnMView1.MIO.SaveToFile(iFilename);
    finally
      Screen.Cursor := crDefault;
    end;
  end;
end;