procedure TfrmMain.ImageIOAcquireBitmap(Sender: TObject;
  ABitmap: TIEBitmap; var Handled: Boolean);
var NomeArquivo:String;
begin
  NomeArquivo := EditDest.Text + Filename + '_' + StrZero(Counter,4)+'.tif';
  ImageIO.AttachedIEBitmap := ABitmap;
  ImageIO.AttachedIEBitmap.PixelFormat := ie1g;
  if Debug then
    with ImageIO.AttachedIEBitmap do
    begin
      Height := 3507;
      Width := 2496;
      ShowMensagem('Attached Height:'+IntToStr(Height));
      ShowMensagem('Attached Width:'+IntToStr(Width));
    end;

procedure TfrmMain.ImageIOAcquireBitmap(Sender: TObject;
  ABitmap: TIEBitmap; var Handled: Boolean);
var
NomeArquivo:String;
iImageEnProc: TImageEnProc;
begin
  NomeArquivo := EditDest.Text + Filename + '_' + StrZero(Counter,4)+'.tif';
  try
  iImageEnProc := TImageEnProc.Create(nil);
  iImageEnProc.AttachedIEBitmap := ABitmap;
  iImageEnProc.Resample(3507, 2496, rfFastLinear, True);
  if Debug then
    with iImageEnProc.AttachedBitmap do
    begin
      ShowMensagem('Attached Height:'+IntToStr(Height));
      ShowMensagem('Attached Width:'+IntToStr(Width));
    end;
  finally
    iImageEnProc.Free;
   end;
end;