Cor da imagem!

Question

Como eu pego uma imagem e troco as cores dela? Por exemplo: Mudar o cinza por

Dhiogo · Answer

Isso funciona se tiver um bitmap em um componente TImage

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
for x := 0 to image1.Width do
  for y:= 0 to image1.Height do
    if image1.Canvas.Pixels[x,y] = clsilver then
      image1.Canvas.Pixels[x,y] := clblue;
end;