El error da porque falta : en el 2° fecha1
Código Delphi
[-]frmrepcad.IBQuery1.SQL.Add('select * from medicamento where fecha_cad between :fecha1 and fecha1+30');
Deberia ser:
Código Delphi
[-]frmrepcad.IBQuery1.SQL.Add('select * from medicamento where fecha_cad between :fecha1 and :fecha1+30');