procedure TForm1.ImageEnMIO1AcquireBitmap(Sender: TObject;
  ABitmap: TIEBitmap; var Handled: Boolean);
var
  idx:integer;
  filename:string;
  io:TImageEnIO;
begin
  io:=TImageEnIO.CreateFromBitmap(ABitmap);
  idx := ImageEnMView1.AppendImage();
  filename := 'c:\twain\page_'+format('%.8d',[idx+1])+'.tif';
  try
    if  ABitmap.BitCount=1 then
    begin
      io.Params.BitsPerSample:=1;
      io.Params.SamplesPerPixel:=1;
      io.Params.TIFF_Compression:=ioTIFF_CCITT1D;
    end
    else
      io.Params.TIFF_Compression:=ioTIFF_JPEG;

    io.SaveToFileTIFF(filename);
    ImageEnMView1.ImageFileName[idx] := filename;
    Handled := true;
  finally
    io.Free;
  end;