[planod]

Доброго времени суток всем. Необходимо по нажатию кнопки в Image получить координаты и отрисовать окружность с

центром в точке нажатия. Координаты нажатия у меня получается получить так:

Код:

var
foo: TPoint;
x,y: integer;
begin
   GetCursorPos(foo);
 x:=foo.X;
 y:=foo.Y;

Далее пытаюсь нарисовать окружность с помощью

Код:

Image1.Canvas.Rectangle(foo.X,foo.Y,foo.X+10,foo.Y+10);

Но вместо нарисованной окружности получаю белый фон Image :cry:
Подскажите, как сделать так, чтобы окружность нарисовалась в необходимом месте компонента.