Hola
Ahi tienes el evento ongettext de los objetos TField
Código Delphi
[-]procedure TDMPrincipal.MicampoGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if sender.asboolean then
text:='Si'
else
Text:='No';
end;
Espero te sirva
Saludos