pintar de diferente color a una imagen

[Chai]

hola disculpeme que te vuelva a molestar.. al hacer click en el area donde quiero que se me pinte a veces se pinta ahi y otras veces se pinta en cualquier parte del dibujo... por fis ayudeme.. ahi te envio el codigo, indiqueme cual es el error
gracias
1.-Declaro las variables para la posicion donde quiero que pinte;
private
{ Private declarations }
XRaton, YRaton:integer;

2.- Pongo un image y en los eventos pongo lo siguiente:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
XRaton:=X;
YRaton:=Y;
end;
3.- La posición XRaton y YRaton no me coje porque no me pinta donde esta ubicado el cursor
procedure TForm1.Image1Click(Sender: TObject);
begin
image1.canvas.brush.color:=clred;
image1.Canvas.FloodFill(XRaton,YRaton,clblack,fsborder);
end;