delphi菜鸟问题，用了数据模块DATA MODULE引发的问题

问题是这样，我有一个form，form中有个dbgrid，然后ADOconnection，ADOTable，DataSource都放在data module中，然后问题是，我数据库中有个性别这一列，类型是bit的，然后想在dbgrid中显示为男女，然后写了一个方法
Delphi(Pascal) code

procedure TDBModuleuser.CFTabZhf_XBGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
    //showMessage(Sender.AsString);
    if Sender.Value then
     Text:='男'
    else
     Text:='女';

end;

但是dbgrid中不会显示男女，依旧是true，false；
但是我把ADOTable，DataSource放到form中后同样的方法又能实现。
问题是：如果ADOTable，DataSource都放在data module中，怎么解决这个问题？

自己再顶顶。

用LookUp属性