procedure TfrmMain.SaveButtonClick(Sender: TObject);
var
  iExtension,AFileName: string;
begin
  if SaveImageEnDialog1.Execute then
  begin
    Screen.Cursor := crHourGlass;
    try
      AFileName := SaveImageEnDialog1.FileName;
      iExtension := ExtractFileExt(AFileName);
      if IEExtToFileFormat(iExtension) = ioTIFF then
        begin
          ImageEnMView1.MIO.SaveToFileTIFF(AFileName);
          if ImageEnMView1.MIO.Aborting then
          begin
            MessageDlg('There was an error saving the image.', mtError, [mbOK], 0);
            exit;
          end;
        end
      else
        MessageDlg('File type must be TIF',mtError,[mbOk],0);
    finally
      Screen.Cursor := crDefault;
    end;
  end;
end;

// Save scanned images directly to file without adding them to a TImageEnMView
procedure TForm1.ImageEnMView1AcquireBitmap(Sender: TObject; ABitmap: TIEBitmap; DpiX, DpiY: Integer; var Handled: Boolean);
var
  filename: string;
begin
  filename := FormatDateTime( '"C:\Scanned Documents\Scan_"yymmdd-hhnnss-zzz".jpg"', Now );
  ABitmap.Write( filename);
  Handled := True;
end;