[delphi]Inserire una croce con il clic del mouse

[niquesca]

il tutto funziona, ma quando clicco con il mouse, la croce si posiziona ad una distanza di circa un cm dal mouse, come faccio per
disegnarla vicino al mause?


procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
if ssLeft in Shift then begin
Canvas.pen.Color:= clRed ;
Canvas.pen.Style:=psSolid;
Canvas.MoveTo(x-3,y);
Canvas.LineTo(x+3,y);
Canvas.MoveTo(x,y-3);
Canvas.LineTo(x,y+3);
end;


grazie mille
Monique