Réinitialisation d'un champ auto incrément

valeur = ADOTable1.RecordCount+1;
if valeur > 12 then valeur = 1;
ADOTable1.FieldByName('Nummalade').Value:=inttostr(valeur)+'/'+FormatDatetime('YYYY',now); 

// retourne une clé au format YYYY/000000
//  composée de w_annee / w_num
function TForm1.get_NewKey : string;
var n_annee    : string;    // nouvelle annee
    a_Num,                  // ancien num
    Err : integer;          // Si ancienne cle invalide
    a_Key      : variant;   // ancienne cle (complete)
                            // (variant car peut être null si table vide)
    // utilise qry1 (SQL) 'SELECT MAX(JRNOPE) FROM OPE'
begin
   n_annee := formatdatetime('YYYY', now);
   qry1.open;                             // cherche cle precedente
   a_Key := qry1.fields[0].value;
   qry1.close;
   if  (a_Key = NULL)                     // NULL table vide
      or  (copy(a_Key, 1, 4)<>n_annee)    // Nlle annee ou clé invalide
   then a_Num := 0
   else begin
      val(copy(a_Key, 6, 6), a_Num, Err); // cherche num precedent
                                          // mieux que strtoint, evite try
      if Err<>0                           // si Err cle invalide
         then a_Num := 0;
   end;
   result := n_annee + format('/%6.6d', [a_Num+1]);
end;