При выборе цвета в палитре, окрашивался рисунок.

procedure TForm1.Button1Click(Sender: TObject);
begin
with Canvas do
 begin
  rectangle(20,20,80,120); //рисуем черным прямоугольник
  ellipse(50,150,100,200);//и круг
 end;
 
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var c:TColor;
begin
//выбираем цвет
//и кликаем по фигуре
if ColorDialog1.Execute then c:=ColorDialog1.Color;
with Canvas do
 begin
  if (x>=20)and(x<=80)and(y>=20)and(y<=120)then
    begin
     pen.Color:=c;
     brush.Color:=c; //окрашиваем
     rectangle(20,20,80,120);
    end
   else if (x>=50)and(x<=100)and(y>=150)and(y<=200)then
    begin
     pen.Color:=c;
     brush.Color:=c;
     ellipse(50,150,100,200);
    end;
  end;
 
end;

Pen.color:=colorbox1.color;

c:=ColorBox1.Selected;

procedure ChangeColor(Bmp: TBitMap; CurrentColor, NewColor: TColor);
type
  TRGBTripleArray = array[0..10000] of TRGBTriple;
  PRGBTripleArray = ^TRGBTripleArray;
var
  x, y: Integer;
  Line: PRGBTripleArray;
begin
  for y := 0 to Bmp.Height - 1 do
  begin
    Line := Bmp.ScanLine[y];
    for x := 0 to Bmp.Width - 1 do
      if RGB(Line^[x].rgbtRed, Line^[x].rgbtGreen, Line^[x].rgbtBlue) = CurrentColor then
      begin
        Line^[x].rgbtRed := GetRValue(NewColor);
        Line^[x].rgbtGreen := GetGValue(NewColor);
        Line^[x].rgbtBlue := GetBValue(NewColor);
      end;
  end;
end;

ChangeColor(Image1.Picture.Bitmap, clGreen, clRed);