Отображение булевых полей

[puma]

Уважаемые мастера! Столкнулся с такой проблемой как отображение булевых полей в гриде... Таблица, реализована в paradoxe, есть поле вид оплаты – oplata , типа Boolean, что изменить в запросе или при выводе в гриде, чтоб отображался текст: платно, бесплатно?

Пример кода:

begin
    FDM.DataQ.Close;
     FDM.DataQ.sql.clear;
     FDM.DataQ.sql.Add('select data.f,data.i,data.o,data.oplata,god.god_zapisi');
     FDM.DataQ.sql.Add('from data,god');
     FDM.DataQ.sql.Add('where (data.id=god.god)and(god.god_zapisi>=:s)and(god.god_zapisi<=:po)');
     FDM.DataQ.prepare;
     FDM.DataQ.Parambyname('s').AsDateTime:=dtp1.Date;
     FDM.DataQ.Parambyname('po').AsDateTime:=dtp2.Date;

 // вывод на экран в гриде колонки
with FDM.DataQ do
begin
Open;
FieldByName('F').DisplayLabel:='Фамилия';
FieldByName('F').DisplayWidth:=15;
FieldByName('I').DisplayLabel:='Имя';
FieldByName('I').DisplayWidth:=15;
FieldByName('O').DisplayLabel:='Отчество';
FieldByName('O').DisplayWidth:=20;
FieldByName('God_zapisi').DisplayLabel:='Дата записи';
FieldByName('God_zapisi').DisplayWidth:=15;
FieldByName('Oplata').DisplayLabel:='Вид оплаты';
FieldByName('Oplata').DisplayWidth:=15;

Большое спасибо за совет.

[Slym]

TBooleanField.DisplayValues:='платно;бесплатно';

[puma]

а этот код где нужно прописать , вставляю в этот фрагмент:

FieldByName('Oplata').DisplayLabel:='Вид оплаты';
TBoolean .Field.DisplayValues:='платно;бесплатно';
FieldByName('Oplata').DisplayWidth:=15;
выдает ошибку:  Undeclared identifier: 'TBoolean'

[Slym]

копипастер?
TBooleanField(FieldByName('Oplata') ).DisplayValues: ='платно;бесплатно';

[superedward]

Имхо не очень правильно: вид оплаты - бесплатно.
Я традиционно для булева типа пользуюсь галочками