[ecfisa]

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