Замена цвета пикселя с условием равенства/неравенства другому цвету

var
  x_max, y_max: Integer;
  scan: PIntegerArray;
  x, y: Integer;
  str: string;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
  with TBitmap.Create do
    begin
      Assign(img1.Picture.Graphic);
      PixelFormat := pf32bit;
      mmo1.Lines.Clear;
      for y := 0 to y_max - 1 do
        begin
          str := '';
          scan := ScanLine[y];
          for x := 0 to x_max - 1 do
            str := str + IntToHex(scan[x], 6) + ' ';
            mmo1.Lines.Add(str);
        end;
        Free;
    end;
end;
 
procedure TForm1.btn4Click(Sender: TObject);
begin
  mmo1.Lines.Clear;
    for x := 0 to x_max - 1 do
       for y := 0 to y_max - 1 do
      if scan[x, y] > $635f1c and scan[x, y] < $e3de9c then // место ошибки
        begin
          str := '';
          str := str + IntToHex(scan[x, y], 6) + ' ';
          mmo1.Lines.Add(str);
        end
      else
        begin
          str := '';
          scan[x, y] := $99ccff;
          str := str + IntToHex(scan[x, y], 6) + ' ';
          mmo1.Lines.Add(str);
        end;  
end;

  ymin := sbMin.Position;
  ymax := sbMax.Position;
...
  x_max := bmSrc.Width-1;
 
  for y := 0 to bmSrc.Height-1 do
  begin
    pbs := bmSrc.ScanLine[y];
    pbd := bmView.ScanLine[y];
    for x := 0 to x_max do
    begin
      // Y = 0,299*R + 0,587*G + 0.114*B
      yy := pbs^[x*3  ]*0.114 + pbs^[x*3+1]*0.587 + pbs^[x*3+2]*0.299;
      if (yy >= ymin) and (yy <= ymax) then begin
        // Элемент в диапазоне - копируем как есть
        pbd^[x*3  ] := pbs^[x*3  ]; // Blue
        pbd^[x*3+1] := pbs^[x*3+1]; // Green
        pbd^[x*3+2] := pbs^[x*3+2]; // Red
      end else begin
        // Элемент вне диапазона - заменить на указанный цвет
        pbd^[x*3  ] := $FF;
        pbd^[x*3+1] := $CC;
        pbd^[x*3+2] := $99;
      end;
    end;
  end;
  Image2.Repaint;

Image1.Stretch := true;
Image1.Width  := 200;
Image1.Height := 200;