// Separate
procedure TMainForm.Button2Click(Sender: TObject);
var
  rects:TList;
  i:integer;
  d:double;
  quality:integer;
begin
  Screen.Cursor := crHourGlass;
  try

  // leave only the first image
  for i:=1 to ImageEnMView1.ImageCount-1 do
    ImageEnMView1.DeleteImage(1);

  ImageEnView1.DeSelect;

  if CheckBox2.Checked then
    quality := 1  // quick process
  else
    quality := 4; // quality process

  rects := ImageEnView1.Proc.SeparateObjects(quality,CheckBox3.Checked);

  for i:=0 to rects.Count-1 do
  begin
    with PRect(rects[i])^ do
    begin
      if (Right-Left>10) and (Bottom-Top>10) then // removes little objects
      begin
        // draw boxes
        if CheckBox1.Checked then
          with ImageEnView1.IEBitmap.Canvas do
          begin
            Pen.Color:=clRed;
            Brush.Style:=bsClear;
            Rectangle(Left,Top,Right+1,Bottom+1);
          end
        else
          ImageEnMView1.SetImageRect( ImageEnMView1.AppendImage, ImageEnView1.IEBitmap, Left,Top,Right,Bottom );
      end;
    end;
    dispose(PRect(rects[i]));
  end;
  rects.free;
  ImageEnView1.Update;

  if CheckBox1.Checked then
    exit;

  // Deskew
  if Checkbox4.Checked then
    for i:=1 to ImageEnMView1.ImageCount-1 do
    begin
      ImageEnMView1.CopyToIEBitmap(i, ImageEnView1.IEBitmap);
      ImageEnView1.Update;
      application.processmessages;
      d:=ImageEnView1.Proc.SkewDetection;
      ImageEnView1.Proc.RotateAndCrop(d);
      ImageEnMView1.SetIEBitmap(i,ImageEnView1.IEBitmap);
      ImageEnView1.Update;
      application.processmessages;
    end;

  finally
    Screen.Cursor:=crDefault;
  end;
end;