Hay un error de tipeo aca:
Código Delphi
[-]
ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc=PARAM';
Te faltaron los dos puntos para indicar que es un parametro:
Código Delphi
[-]
ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc= :PARAM';