Incompatible types: ‘method pointer and regular procedure‘，动态绑定事件出现这类错误

下面定义的函数和过程都在同一个公共单元中(非窗体单元)

在一个函数中调用方式如下(调用行，就是这一行出错）：
datamodule1.query1.FieldByName('XB').OnGetText:=GetName;

在同一个单元中定义的过程如下：
procedure GetName(Sender: TField; var Text: String; DisplayText: Boolean);
begin
    with datamodule1.query1 do
    begin
        close;
        sql.Clear;
        sql.Add('select [name] from [sex] where [code]=:x');
        Parameters[0].Value:=Sender.Value;
        open;
        Text:=Fields[0].AsString;
    end;
end;

解决方法：事件方法必须是类的方法 

type
   TEventHandlers = class { 建一个虚拟类}
       procedure GetName(Sender: TField; var Text: String; DisplayText: Boolean);
   end;
 
...
var 
  EvHandler:TEventHandlers;
 
implementation
 
{方法实现}
procedure TEventHandlers.GetName(Sender: TField; var Text: String; DisplayText: Boolean); 
begin 
    with datamodule1.query1 do 
    begin 
        close; 
        sql.Clear; 
        sql.Add('select [name] from [sex] where [code]=:x'); 
        Parameters[0].Value:=Sender.Value; 
        open; 
        Text:=Fields[0].AsString; 
    end; 
end;
 
 
 
{使用}
datamodule1.query1.FieldByName('XB').OnGetText:= EvHandler.GetName;