order by não funciona para o Grid!

Boa tarde, estou com o seguinte problema...

Tenho o seguinte SELECT..

 

SELECT
 CONTRATO.IDCONTRATO,
 CONTRATO.DESCCONTRATO,
 CONTRATO.DATACONTRATO,
 CONTRATO.VALICONTRATO,
 CONTRATO.SITUCONTRATO,

FROM CONTRATO WHERE ( (CONTRATO.CODIEMPRESA = :CEMPRESA) AND (CONTRATO.TIPOCONTRATO = 0) )

UNION

SELECT
 CONTRATO.IDCONTRATO,
 CAST('Plano Avulso, cobrança à vista' AS VARCHAR(70)) AS DESCCONTRATO,
 CONTRATO.DATACONTRATO,
 CONTRATO.VALICONTRATO,
 CONTRATO.SITUCONTRATO,

FROM CONTRATO WHERE ( (CONTRATO.CODIEMPRESA = :CEMPRESA) AND (CONTRATO.TIPOCONTRATO = 1) )

ORDER BY 5 DESC

onde CONTRATO.SITUCONTRATO refere-se a situação...

-1 Vencido

0 Finalizado

1 Orçamento

2 Ativo

Gostaria que ficasse na ordem decrescente, mas pesar do DESC no ORDER BY, ele não fica como DESC

Uso dxDBGrid e nunca tive esse problema antes, é a primeira vez, e ele teima em não ordenar.

As propriedades do Grid estão conectadas corretamente com o DataSource os campos do Grid estão ok, todos com a propriedade Sorted setada como csNone

Me Ajudem!

Obrigado!