Hola.
Intenta de este modo:
Código Delphi
[-]
function CantCed(Connect: TADOConnection; const Cedula: string): Integer;
var
ads: TADODataSet;
begin
ads := TADODataSet.Create(nil);
try
ads.Connection := Connect;
ads.CommandText := 'SELECT COUNT(*) AS CANTREG FROM PLANCLI WHERE CC = :PARAM';
ads.Parameters.ParamByName('PARAM').Value := Cedula;
ads.Open;
Result := ads.FieldByName('CANTREG').Value;
finally
ads.Close;
ads.Free;
end;
end;
Ej. de uso:
Código Delphi
[-]
var
r : Integer;
begin
r := CantidadCed(ADOConnection1, '25374893');
if r = 0 then
ShowMessage('No existen registros con esa cédula')
else
ShowMessage(Format('Existen %d registros con esa cédula',[r]));
Saludos