关于delphi的代码问题 请指教

Question

我照书上的例子做的，做的是一个画点图的组件 代码如下
    Function TDotImage.MouseOver(x:Integer;y:Integer):Integer;
    var i,x,idx,ran:Integer;
    begin
       Result:=-1;
       if FData=nil then Exit;
       ran:=Round(FSegX/2);
       if ran<3 then ran:=3;
       if ran>6 then ran:=6;
       i:=Trunc((x-FDotsRects.Left-FSegX/2)/FSegX);
       idx:=i;
       if(idx>=0)and(idx<FCount)then
一运行就提示[Error]DotImage.pas(47):Undeclared identifier:'MouseOver'
很多函数都显示没定义 这是为什么

Answer 1

TDotImage类声明这个方法了吗？

Answer 2

TDotImage类是从Component上新建来的，TDotImage类是Timage继承来的，代码自动生成 我也不知道用不用声明 刚学的 不明白 应该不用声明吧