order by campo & order by campo desc

Olá, estou desenvolvendo uma telinha que lista os valores de uma tabela SQL

eu que quando a pessoa clica-se no titulo ele ordena-se a tabela (1, 2, 3, ...)

com o seguinte comando:

procedure TFMUsuarios.dbgUsuariosTitleClick(Column: TColumn);

var

campo :string;

begin

campo:= column.fieldname; // CAMPO RECEBE O NOME DA COLUNA CLICADA,

application.processmessages; // para considerar algo que aconteça no dbgrid durante a entrada nesta procedure

zqUsuarios.sql.clear; // LIMPA A QUERY

 zqUsuarios.sql.add('select * from Funcionarios order by '+campo);

 zqUsuarios.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA

end;

dbgUsuarios é o meu TDBGrid

zqUsuarios é o meu TZQuery

BOm desta forma ele ordena do jeito que falei, mas eu quero que quando eu clicar novamente ele ordene ao contrario (3, 2, 1)

e não sei como fazer

Por Favor me deem uma LUZ.

:) Obrigado.