En lo sucesivo, te recomiendo que plantees el problema completo, así nos hacemos una idea completa de lo que necesitas. Además explica qué significa cada campo, porque al entender de qué va el asunto, podremos afinar más.
Se supone que deberías hacer lo mismo para la fecha f_cade
Código Delphi
[-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.add( 'select * from tclient where (f_cad between :Hoy and :hoy + 30)');
Query1.SQL.add('and (f_cade between :hoy and :hoy +30) ');
Query1.parambyname('hoy').asDate := Date;
Query1.Open;
Saludos