procedure TScannerF.Button4Click(Sender: TObject);
var
  AcquireApis : TIEAcquireApis;

begin
  if ImageEnMView1.MIO.AcquireParams.SelectedSource.API = ieaNone then
  begin
      AcquireApis := [];
  if chkTwain.checked then
    Include( AcquireApis, ieaTwain );
  if chkWIA.checked then
    Include( AcquireApis, ieaWIA );
  if chkDCIM.checked then
    Include( AcquireApis, ieaDCIM );

  if AcquireApis = [] then
    messagedlg( 'You havent select scanner', mtInformation, [mbOK], 0 )
  else
  begin
    ImageEnMView1.MIO.SelectAcquireSource( AcquireApis );
    UpdateControlStatus( True );
  end;

  end;

  if (cmbColors.Enabled ) and
     ( not ImageEnMView1.MIO.AcquireParams.IsPixelTypeSupported( TIEAcquirePixelType( cmbColors.ItemIndex ))) then
  begin
    MessageDlg( 'The selected color is not supported by your device.', mtError, [mbOK], 0 );
    exit;
  end;

  fAborted := False;
  btnAbort.Enabled := True;
  btnAbort.Visible := True;
  btnAcquire.Enabled := False;
  try
    Screen.Cursor := crHourglass;
   // ImageEnMView1.Clear;
    SaveProperties;
    ImageEnMView1.MIO.Acquire;
  finally
    btnAbort.Visible := False;
    btnAcquire.Enabled := True;
    Screen.Cursor := crDefault;
  end;
  ProgressBar1.Position := 0;
end;