事件方法必须是类的方法

我的本意是想在一个通用 unit 单元中定义一个通用的查询函数，在这个通用查询函数中调用字段的ongettext方法来解析值为代码的字段（如:表的性别字段存储的是代码, '1' :男， '2' 女)，在DBGridEh中性别显示的是名称男或女，而表中字段存储的是 '1' 或 '2'

由于想尽可能做的通用，不希望用联合查询，要用Ongettext

难道要在每个TADOQuery控件中写Ongettext事件，可是所有的TADOQuery都放在了datamodule1中,查询sql是在不同窗体中写的

要怎么做？

我的本意是想在一个通用unit单元中定义一个通用的查询函数，在这个通用查询函数中调用字段的ongettext方法来解析值为代码的字段（如:表的性别字段存储的是代码,'1':男，'2'女)，在DBGridEh中性别显示的是名称男或女，而表中字段存储的是'1'或'2'
由于想尽可能做的通用，不希望用联合查询，要用Ongettext
难道要在每个TADOQuery控件中写Ongettext事件，可是所有的TADOQuery都放在了datamodule1中,查询sql是在不同窗体中写的
要怎么做？
 
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;