Как заменить цвет в битмапе

var
    Form1: TForm1;
    bmp: Graphics.TBitmap;
 
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
    bmp:= Graphics.TBitmap.Create;
    bmp.Assign(Image1.Picture);
    // здесь нужно заменить один цвет другим  неважно какой каким
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
    FreeAndNil(bmp);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var srcRect, destRect: TRect;
begin
 
    srcRect:= Rect(0, 0*31, 31, 0*31 + 31);               // Откуда берём
    destRect:= Rect(20, 30, 20 + 31, 30 + 31);            // Куда помещаем
    Form1.Canvas.CopyRect(destRect, bmp.Canvas, srcRect); // Выводим 
end;

var i,j: integer;
    bmp: Graphics.TBitmap;
    clrOriginal, clrReplace: Graphics.TColor;
begin
    bmp:= Graphics.TBitmap.Create;
    bmp.Assign(Image1.Picture);
    clrOriginal:= bmp.Canvas.Pixels[0,0];
    clrReplace:= clGreen;
    for i:= 0 to bmp.Width do begin
        for j:= 0 to bmp.Height do begin
            if bmp.Canvas.Pixels[i,j]=clrOriginal then bmp.Canvas.Pixels[i,j]:= clrReplace;
        end;
    end;
    Image1.Picture.Assign(bmp);
end;

implementation
uses IntfGraphics, FPimage; // добавляем
{$R *.lfm}
 
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
  i, j : integer;
  lii : TLazIntfImage;
  clrOriginal, clrReplace : TFPColor;
begin
  lii := TLazIntfImage.Create(0, 0);
  lii.LoadFromBitmap(Image1.Picture.Bitmap.Handle, Image1.Picture.Bitmap.MaskHandle);
  clrOriginal := lii.Colors[0, 0];
  clrReplace := TColorToFPColor(clGreen);
  for i := 0 to lii.Height - 1 do
    for j := 0 to lii.Width - 1 do
      if lii.Colors[j, i] = clrOriginal then lii.Colors[j, i] := clrReplace;
  Image1.Picture.Bitmap.LoadFromIntfImage(lii);
  lii.Free;
end;