Подсчёт объектов на изображении

Не совсем так. Конечно очередь нам все равно нужна, но памяти она будет занимать намного меньше чем стек в случае рекурсии. Например в крайнем случае, когда вся картинка размером NxM будет залита одним цветом, в случае поиска в глубину нам понадобится стек глубиной N*M, тогда как максимальный размер очереди в поиске в ширину в этом случае будет чуть больше чем min(N, M). Реализовать очередь, зная, что в ней никогда не будет больше чем определенное количество элементов, очень просто, например с помощью циклического буфера в памяти.
По времени — поиск это тоже один проход по изображению, поэтому я не понимаю почему углы будут быстрее. По памяти, да у них есть небольшое преимущество. Зато у поиска есть другое преимущество: можно сразу выделить связанные области и пометить их разными «цветами», попутно еще и определив размер каждой области.

Тогда об этом надо сообщить в описании алгоритма. Извиняюсь, что придираюсь, но после определенного момента стал очень внимательно относится ко всяким частным случаям, порой борьба с ними намного сложнее реализации самого алгоритма.

Вот реализованный мной несколько лет назад алгоритм заливки (он тут как вспомогательный)
Основное его предназначение — вычисление центра масс всех найденных объектов на изображении. Для обработки я всё изображение переводил в ч/б массив (массив булеанов), а затем выделял в нем объекты. Под цветное изображение труда не будет переделать.

procedure TRgbBmp.CalcMassCentre4(var BoolArr: TBoolArray);

var

// ...
begin

	// ... инициализации

	// Алгоритм заполнения произвольной области с затравкой

	// Преобразован для нахождения центра масс -

	// Координаты всех "залитых" точек суммируются и делятся на площадь

	for i := 1 to FHeightMinus1 - 1 do

	for j := 1 to FWidthMinus1 - 1 do

	// Как только натыкаемся на непомеченный пиксель - запускаем алгоритм заливки
	if TmpBoolArr[i, j] then

	begin

		SumX := 0;

		SumY := 0;

		N := 0;



		Top := 0;
		// Добавляем в стек текущие координаты 

		Stack[Top] := ToCoord(i, j);


		// пока стек не пуст

		while Top <> -1 do

		begin
			// извлекаем из стека координаты

			Curr := Stack[Top];

			Dec(Top);


			// помечаем текущую точку

			if TmpBoolArr[Curr.y, Curr.x] then

			begin

				TmpBoolArr[Curr.y, Curr.x] := False;

				CoordAdd(Curr.y, Curr.x, SumY, SumX, N);

			end;



			// заливаем все пиксели слева

			xl := Curr.x - 1;



			while TmpBoolArr[Curr.y, xl] do

			begin

				TmpBoolArr[Curr.y, xl] := False;

				CoordAdd(Curr.y, xl, SumY, SumX, N);

				Dec(xl);

			end;


			// заливаем все пиксели справа

			xr := Curr.x + 1;



			while TmpBoolArr[Curr.y, xr] do

			begin

				TmpBoolArr[Curr.y, xr] := False;

				CoordAdd(Curr.y, xr, SumY, SumX, N);

				Inc(xr);

			end;



			Dec(xr);



			// идем вниз и вверх

			k := 1;



			repeat

				y := Curr.y + k;

				x := xl + 1;


				// добавляем еще одну строчку для следующей итерации

				while x < xr do

				begin

					x0 := x;



					while (TmpBoolArr[y, x]) and (x < xr) do

						Inc(x);



					if x0 <> x then

					begin

						Inc(Top);

						Stack[Top] := ToCoord(y, x);

					end;



					while (not TmpBoolArr[y, x]) and (x < xr) do

						Inc(x);
				

				end;

				
				// для верхней строки

				k := k - 2;

			until

				k < -1;

			end;



		// Если объект маленький (3 и меньше пикселей), то его не учитываем

		if N > 3 then

		begin

			MassCentre.Y := Trunc(SumY / N);

			MassCentre.X := Trunc(SumX / N);



			MasscentreArr[MassCentre.y, MassCentre.x] := True;

		end;

	end;



	// ...
end;

Прошу прощения за делфи. Ну суть понятна, я думаю, комментарии есть. Что-то непонятно — обращайтесь, распишу