Hola buen día.
Resuelto el problema, asi quedo mi función:
Código Delphi
[-]
function TDBClass.CantCed(Connect: TADOConnection; var Cedula: string): Integer;
var
ads: TADODataSet;
begin
ads := TADODataSet.Create(nil);
try
ads.Connection := Connect;
ads.CursorType := ctStatic;
ads.LockType := ltOptimistic;
ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc=PARAM';
ads.Parameters.ParamByName('PARAM').Value := Cedula;
ads.Open;
CantCed := ads.FieldByName('CANTREG').Value;
finally
ads.Close;
ads.Free;
end;
end;
Quedo superbien y corriendo. Mil Gracias.
EderFCR