[rufo]

Gracias amigo pero utilice el ultimo codigo queme diste pero me marca error pongo mi codigo para que me auxilies en que estoy mal y gracias de antemano.

 procedure TFELICITACIONES.Button1Click(Sender: TObject);
begin
 with dm1.Q_cumplemes do
  begin
   active:=false;
   sql.clear;
   sql.add('select *,f_nacimiento from cumpleaños_mes Order by Day(f_nacimiento)');
   sql.add('where  (((Month([f_nacimiento]))=Month(Date())))');
   active:=true;
  end;
 end;