Уменьшить количество цветов в изображении

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int colcol=Edit2->Text.ToInt();
  int inclr,outclr,r,g,b;
  for (int x=1;x<Image2->Width;x++) {
    for (int y=1;y<Image2->Height;y++) {
      inclr=Image2->Canvas->Pixels[x][y];
      outclr=MyColors(colcol,inclr);
// r=OneColor(outclr,'R');
// g=OneColor(outclr,'G');
// b=OneColor(outclr,'B');
      Image2->Canvas->Pixels[x][y]=outclr;
    }
  }
}

//// ccol - кол-во цветов  cpix - исходный цвет
int ar;//Переменная для записи цвета. Название просто так.
int clrs;
int r,g,b,mc;
clrs=255/ccol;//Ступень цвета, шаг значений,
        //кол-во любого цвета может быть от 0 до 255
        // все это и делим на участки, сколько
        //оттенков хотим получить.
mc=0;//Начало первого участка спектра
        // (в спектре учитывается только кол-во красного)
ar=OneColor(cpix,'R');//Количество красного в цвете
for (int i=1;i<=ccol;i++)
        {
        //Если красного больше чем в начале участка
        //и меньше чем в конце (i*clrs),
        if ((ar>=mc)&&(ar<=i*clrs))
                //красный = (начало уч-ка+конец уч-ка)/2:
                {r=(mc+i*clrs)/2;break;}
        //Начало следующего участка
        mc=clrs*i;
        }
//Повторяем для оставшихся 2-х цветов:
mc=0;
ar=OneColor(cpix,'G');
for (int i=1;i<=ccol;i++)
        {
        if ((ar>=mc)&&(ar<=i*clrs))
                {g=(mc+i*clrs)/2;break;}
        mc=clrs*i;
        }
mc=0;
ar=OneColor(cpix,'B');
for (int i=1;i<=ccol;i++)
        {
        if ((ar>=mc)&&(ar<=i*clrs))
                {b=(mc+i*clrs)/2;break;}
        mc=clrs*i;
        }
//Смешиваем цвета и возвращаем готовый полный цвет:
return FullColor(r,g,b);