[firebase-br] SQL Ordem por dia do mês

[Ezequias Oliveira]

Prezados Colegas:

Preciso do relatório de aniversariantes do mês , mas que saiam ordenados
pelo dia do mês
com o código abaixo, consigo imprimir a listagem dos aniversariantes do mês
atual, mas
o relatório sai na ordem crescente por ano de nascimento.

Ao invés de sair:

Nome      Data Nascimento
José         *25*/08/1940
Maria        *07*/08/1965
João         *03*/08/1970

Preciso que saia assim:

Nome      Data Nascimento
 João        * 03*/08/1970
Maria       * 07*/08/1965
José         *25*/08/1940

Uso Delphi/Firebird


================================================================
procedure Tf_menu.AniversariantesdoMes1Click(Sender: TObject);
var
  Data: TDateTime;
  Dia,Mes,Ano: Word;
begin
  Data := Date;
  DecodeDate(Data,Ano,Mes,Dia);
  Application.CreateForm(TF_RelNiverAluno,F_RelNiverAluno);
  F_RelNiverAluno.SQLDataSet1.Open;
  F_RelNiverAluno.SQLDataSet2.Close;
*  F_RelNiverAluno.SQLDataSet2.CommandText := 'SELECT * FROM Aluno WHERE
EXTRACT(MONTH FROM DataNascimento)= ' + IntToStr(Mes) + 'ORDER by
DataNascimento' ;
*  F_RelNiverAluno.SQLDataSet2.Open;
  F_RelNiverAluno.cdsAlunos.Open;
  F_RelNiverAluno.QRLabel1.Caption := 'RELAÇÃO DE ANIVERSARIANTES DO MÊS';

  F_RelNiverAluno.QuickRep1.Preview;
end;
==============================================================
Obrigado pela ajuda

Ezequias.