[angvelem]

Особо разбираться лень, но в этом коде нужно добавить проверку:

Код:

  R := Round(R / (255 / 4)) * Round(255 / 4);
  G := Round(G / (255 / 4)) * Round(255 / 4);
  B := Round(B / (255 / 4)) * Round(255 / 4);

  if R < 0 then R := 0;
  if G < 0 then G := 0;
  if B < 0 then b := 0;
  if R > 255 then R := 255;
  if G > 255 then G := 255;
  if B > 255 then B := 255;