Fórum Mudar cores da TImage, usando TColorDialog #349062

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  SrcColor :TColor;
begin
 // obtém a cor na posição que o mouse foi clicado
  SrcColor := Image1.Canvas.Pixels[X, Y];
  if ColorDialog1.Execute then
  begin
  // define a cor a ser utilizada no preenchimento
    Image1.Canvas.Brush.Color := ColorDialog1.Color;  // cor do preenchimento
    Image1.Canvas.FloodFill(X, Y, SrcColor, fsSurface);
  end;
end;