你可以在那个选中事件中,加入操纵PIXELS[X][Y]
begin
      Image1.Canvas.Pixels[x][y].Red:=
      Image1.Canvas.Pixels[x][y].Blue:=
      Image1.Canvas.Pixels]x][y].Green:=
end;
把这几个值适当减小一点,应该可以了把?