private
{ Private declarations }
  AAborting: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AAborting := False;
  ImageEnMView1.SetModernStyling;
end;

procedure TForm1.Acquirepages1Click(Sender: TObject);
{ Menu, scanner | acquire pages }
begin
  ImageEnMView1.Deselect;
  if ImageEnMView1.MIO.AcquireParams.SelectedSourceApi = ieaTwain then
  begin
    ImageEnMView1.MIO.TwainParams.FeederEnabled := true;
    ImageEnMView1.MIO.TwainParams.AutoFeed := true;
    ImageEnMView1.MIO.TwainParams.DuplexEnabled := False;
  end;
  if not ImageEnMView1.MIO.Acquire then
    AAborting := True
  else
    AAborting := False;
end;

procedure TForm1.ImageEnMView1AfterEvent(Sender: TObject; Event: TIEAfterEvent);
{ Occurs immediately after ImageEn has processed an event. }
begin
  if Event = ieaePaint then
    if AAborting then
      { Remove blank pages }
      ImageEnMView1.RemoveBlankPages(1, True, True);
end;

  ImageEnMIO1.AcquireParams.VisibleDialog := True;
  if ImageEnMIO1.SetAcquireSource( ieaTwain, Default_Device ) then
    if not ImageEnMIO1.Acquire then
      ImageEnMView1.RemoveBlankPages( 0.0001, False, False );