delphi中奇怪的方法未重载错误提示

[老猿的书房]

大家好，本人最近在用delphi 2010时遇到一个奇怪的错误，希望能得到大家的帮助
我定义了一个检索数据库的类，并在其中添加了三个检索函数，代码如下

interface

type
    TDbUtil = class( TObject )
    public
        function Find() : TList<TObject>; OverLoad;                // 无条件检索
        function Find( id : Integer ) : TObject; OverLoad;        // 按主键值检索
        function Find( condition : TObject ) : TList<TObject>; OverLoad;            // 按指定条件检索

implementation

function TDbUtil.Find() : TList<TObject>;
begin
end;

function TDbUtil.Find( id : Integer ) : TObject;
begin
end;

function TDbUtil.Find( condition : TObject ) : TList<TObject>;
// 在上面这一行报错，错误信息是没有指定重载'OverLoad'
begin
end;

前两个函数没事，第三个函数在写实现的时候出现了红线报错，错误信息为：
Overloaded procedure 'TDbUtil.Find' must be marked with the 'overload'

错误只在编辑时出现，编译和运行都正常，不受任何影响。

请问可能的错误原因是什么呢？怎么解决？

[BambooCaep]

xe7，没有发现你说的问题。 另外，你的类定义少了个end

[浮生若梦_平淡为真]

引用 1 楼 BambooCaep 的回复:

xe7，没有发现你说的问题。 另外，你的类定义少了个end

xe7破解版吗？告诉下

[BambooCaep]

搜索‘xe7 破解’即可。

[老猿的书房]

抱歉这么晚才来结贴。 我用的是2010，那个end在源代码中是有的，我在发贴时写漏了。 PS:源代码复制过来太长了。