Заменить цвет пикселя, сделать более насыщеным

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Jpeg;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sbmap: TBitmap;
    procedure RestoreImage(Bitmap: TBitmap; Image: TImage);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.RestoreImage(Bitmap: TBitmap; Image: TImage);
begin
  with Image.Picture.Bitmap do begin
    Width  := Image.Width ;
    Height := Image.Height;
    PixelFormat := pf32bit;
    Canvas.Lock;
    // Задать режим масштабирования со сглаживанием
    SetStretchBltMode(Canvas.Handle, HALFTONE);
    // Скопировать картинку с масштабированием
    StretchBlt(Canvas.Handle, 0, 0, Width , Height, Bitmap.Canvas.Handle,
               0, 0, Bitmap.Width , Bitmap.Height, SRCCOPY);
    Canvas.Unlock;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  pic: TPicture;
begin
  // Создать битмап, где будет находится исходный бланк
  sbmap := TBitmap.Create;
 
  // Загрузить бланк из файла JPEG
  pic := TPicture.Create;
  pic.LoadFromFile(ExtractFilePath(Application.ExeName) + 'blank.jpg');
 
  // Скопировать исходный бланк в битмап
  sbmap.Width  := pic.Width ;
  sbmap.Height := 1;
  sbmap.PixelFormat := pf32bit;
  sbmap.Height := pic.Height; // действий больше, а памяти перелопачивает меньше
  sbmap.Canvas.Draw(0, 0, pic.Graphic);
  pic.Destroy;{}
 
  // Скопировать картинку из Image в исходный битмап, если картинка хранится в Image
{  sbmap.Width  := Image1.Picture.Width ;
  sbmap.Height := 1;
  sbmap.PixelFormat := pf32bit;
  sbmap.Height := Image1.Picture.Height;
  sbmap.Canvas.Draw(0, 0, Image1.Picture.Graphic);{}
 
  // Скопировать картинку из исходного битмап в Image
  // В дальнейшем, при изменении размера Image просто вызывать эту процедуру ещё раз
  RestoreImage(sbmap, Image1);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  sbmap.Destroy;
end;
 
end.