var
  i: Integer;
  IEBitmap: TIEBitmap;
  proc: TImageEnProc;
  Percentage: Double;
  cl: TRGB;
begin
  for i := ImageEnMView1.ImageCount -1 downto 0 do
    begin
      IEBitmap := TIEBitmap.Create;
      try
        ImageEnMView1.CopyToIEBitmap(i, IEBitmap, True);
        ImageEnMView1.ReleaseBitmap(i);
        proc := TImageEnProc.CreateFromBitmap(IEBitmap);
        proc.ConvertTo(ie1g, ieptFixedBW, iedtSolid);
        Percentage := proc.GetDominantColor(cl);
        proc.Free;
        if Percentage = 100 then
          ImageEnMView1.DeleteImage(i);
      finally
        IEBitmap.Free;
      end;
    end;
end;