Colorir uma imagem em várias partes (com TImage)

var
  X, Y: Integer;
  PixColor: TColor;
begin
  for X := 0 to Image1.Width - 1 do
    for Y := 0 to Image1.Height - 1 do
    begin
      PixColor := TBitmap(Image1.Picture.Graphic).Canvas.Pixels[X, Y];
      if PixColor = clBlack then
        PixColor := ColorBox1.Selected;
      TBitmap(Image2.Picture.Graphic).Canvas.Pixels[X, Y] := PixColor;
    end;