Поменять тон изображения

procedure ModColors(Bitmap: TBitmap; Color: TColor);
type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;
var
  r1, g1, b1: Byte;
  x, y: Integer;
  Dest: pRGB;
  A: Double;
 
  function GetR(const Color: TColor): Byte;
  begin
    Result := Lo(Color);
  end;
 
  function GetG(const Color: TColor): Byte;
  begin
    Result := Lo(Color shr 8);
  end;
 
  function GetB(const Color: TColor): Byte;
  begin
    Result := Lo((Color shr 8) shr 8);
  end;
 
  function BLimit(B: Integer): Byte;
  begin
    if B < 0 then
      Result := 0
    else if B > 255 then
      Result := 255
    else
      Result := B;
  end;
 
begin
  Bitmap.PixelFormat := pf24Bit;
  r1 := Round(255 / 100 * GetR(Color));
  g1 := Round(255 / 100 * GetG(Color));
  b1 := Round(255 / 100 * GetB(Color));
  for y := 0 to Bitmap.Height - 1 do
  begin
    Dest := Bitmap.ScanLine[y];
    for x := 0 to Bitmap.Width - 1 do
    begin
      with Dest^ do
      begin
        A := (r + b + g) / 300;
        with Dest^ do
        begin
          R := BLimit(Round(r1 * A));
          G := BLimit(Round(g1 * A));
          B := BLimit(Round(b1 * A));
        end;
      end;
      Inc(Dest);
    end;
  end;
end;
 
// Пример использования: 
 
ModColors(Bitmap, RGB(218, 219, 230));

function SetRGBChannelValue(Bitmap: TBitmap; Red, Green, Blue: Integer): Boolean;
var
  i, j: Integer;
  rgbc: array[0..2] of Byte;
  c: TColor;
  r, g, b: Byte;
begin
  if (Red = 0) and (Green = 0) and (Blue = 0) then
  begin
    Result := False;
    Exit;
  end;
 
  for i := 0 to Bitmap.Height do
  begin
    for j := 0 to Bitmap.Width do
    begin
      c := Bitmap.Canvas.Pixels[j, i];
      rgbc[0] := GetRValue(c);
      rgbc[1] := GetGValue(c);
      rgbc[2] := GetBValue(c);
 
      if not (rgbc[0] + Red < 0) and not (rgbc[0] + Red > 255) then
         rgbc[0] := rgbc[0] + Red;
      if not (rgbc[1] + Green < 0) and not (rgbc[1] + Green > 255) then
         rgbc[1] := rgbc[1] + Green;
      if not (rgbc[2] + Blue < 0) and not (rgbc[2] + Blue > 255) then
         rgbc[2] := rgbc[2] + Blue;
 
      r := rgbc[0];
      g := rgbc[1];
      b := rgbc[2];
 
      Bitmap.Canvas.Pixels[j, i] := RGB(r, g, b);
    end;
  end;
 
  Result := True;
end;
 
// Пример использования: 
 
SetColorValue(Bitmap, Spinedit1.Value, Spinedit2.Value, Spinedit3.Value);