[[enecumene]]

Código Delphi [-]
tclient.Open;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.text := 'select * from tclient where f_cad <= :f_nueva';
Query1.parambyname('f_nueva').value := DateToStr(now-30);
Query1.Open;

Mira a ver si te funciona ahora.

Saludos.