Fórum Mudar valor de uma Celula no DBGrid #205893

Primeiro Adciono os campos da tabela ao meu Table Query.
Depois selecio o campo e uso os evento Ongettext para mudar o conteudo do campo pois o campo no BD é numerico e eu preciso colocar para texto, exemplo quando o conteudo for 1 deve aparecer Ativo, quando for 2 deve aparecer inativo e assim por diante.
Estou usando este codigo.

procedure TfrmCadVeiculo.qrListaVeicSituacaoGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if trim(Text) = ´1´ then
Text := ´ativo´;
if trim(Text) = ´2´ then
Text := ´inativo´;
end;

Mas o campo vem em branco alguem saberia o porque ou aonde estou errando, pois nao estou conseguindo ver o conteudo do campo pois a variavel Text vem em branco e no evento OnSetText esta na mesma situacao.