[Janom]

Да и еще:

Код:

Image1.Canvas.Rectangle(foo.X,foo.Y,foo.X+10,foo.Y+10){ - ЭТО КВАДРАТ или ПРЯМОУГОЛЬНИК}

А Вам надо:

Код:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.Ellipse(X,Y,X+10,Y+10)
end;

GetCursorPos - не надо, в событиях OnMouseDown,OnMouseMove,OnMouseUp и так есть положения курсора на объекте...