Hola a todos de nuevo.
consegui esto buscando por el foro lo cual dio solucion a mi consulta, espero que sirva de ayuda a alguien mas
Código Delphi
[-]
cadena:='select Nombre, Dia, Mes, Año, Foto from Cumple where Mes = :n_mes and Dia >= :n_dia and Dia <= :n_dia +7 order by Mes';
query1.SQL.Add(cadena);
Query1.Parambyname('n_mes').AsInteger :=strtoint(edit3.Text);
Query1.Parambyname('n_dia').AsInteger :=strtoint(edit2.Text);
Query1.Open;