[PhoeniX]

Код:

var
  j:integer; //Число похожих на интерацию
  ...
begin
   repeat
    j:=0;
    for i:=0 to ...... do begin
      if ПОХОЖИЙ_ЦВЕТ then begin
        inc(j);
        ...
      end;
    end;
  until j=0;
end;

Вот както так.... вроде...