[[eduarcol]]

Otra opcion aparte de la del amigo Marcelo, coloca esto en el evento onMouseMove del TImage

Código Delphi [-]
if Shift = [ssLeft] then
      Image1.Canvas.Pixels[x, y] := clRed;