Fórum Pintar imagem com o mouse #561741

Olá pessoal, estou em um projeto e é algo que nunca trabalhei com o delphi. Seria pintar uma imagem com o mouse. Vou explicar melhor a situação. É um sistema para uma clinica de fisioterapia, e no prontuário onde se encontra o meu drama. Tenho um Timage com a imagem de anatomia frente e verso do boneco isso na mesma imagem. Então eles querem fazer pontos nessas imagens e claro preciso salvar isso no banco conforme o paciente. Então ficaria da seguinte forma, tem a imagem, você marca com bolinhas os lugares onde o paciente tem a dor e caso marque errado preciso retirar esse determinado ponto e também preciso que isso fique salvo para cada paciente. Eu imagino que tenha que guardar no banco a posição do mouse, mas não tenho ideia de como pegar essas posições. Enfim esse é meu drama, se alguém ja fez algo parecido e puder dar uma ajuda agradeço muito. Eu já tenho um código que faz a bolinha, mas não consigo apagar ela. Vou deixar o código postado aqui, peguei aqui no forum mesmo.

procedure Tprontuario.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Image3.Picture.Bitmap.Canvas.Brush.Color := clred;
Image3.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
Image3.Picture.Bitmap.Canvas.Ellipse(x,y,x+20,y+20);
end;