Imagen que se pueda marcar

[[Lepe]]

Si solo tienes que marcar y listo (no tienes que deshacer lo pintado, ni mover ni nada de eso), lo puedes hacer con el TImage en el evento MouseDown y accediendo a Image1.Picture.Bitmap.canvas.Ellipse(....)

Ellipse te permite dibujar un círculo o elipse; también tienes cuadrados, Lineas, etc.

Si tienes que borrar los puntos para permitir deshacer o algo así, te recomiendo pongas 2 TImages superpuestos, en el de abajo cargas la imagen. En el de arriba, le pones Transparent a True en el inspector de objetos y pintas en él. Así si tienes que borrar, haces un Clear del image de arriba. Una vez finalizado, los dibujos en el Timage de arriba, los vuelves a pintar en el de abajo y guardas la imagen modificada.

No sé la versión de delphi que usas, pero si cargas un jpg no te dejará modificarlo, tendrás que convertirlo a BMP y cargarlo en image.Picture.Bitmap.

Saludos