[kiman.ru]

Задача сделать из цветной картинки черно-белую, но без серого цвета — то есть можно использовать только 2 цвета: белый и черный.

Пример выполнения кода можно увидеть в прикрепленном изображении.

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
x, y, kontrast : Integer;
begin
kontrast := 100;
image2.Width := image1.Width;
image2.Height := image1.Height;
for y := 0 to image1.Height-1 do
begin

  for x := 0 to image1.Width-1 do
    begin
      if (GetRValue(Image1.Canvas.Pixels[x, y]) < kontrast) or (GetGValue(Image1.Canvas.Pixels[x, y]) < kontrast) or (GetBValue(Image1.Canvas.Pixels[x, y]) < kontrast) then
      Image2.Canvas.Pixels[x, y] := clBlack;
    end;
x := 0;
end;
end;

Проблема в том, что картинка у меня размером 2048х1536 пикселей, то есть цикл выполняется 3 145 728 раз и это занимает примерно 20 секунд. Нужно сделать так, чтобы происходило то же самое, но значительно быстрее. Подскажите пожалуйста как это сделать? Если можно — конкретно кусок кода.

Спасибо!