actualiser automatique le code dans une table

comment actualiser le numero d'ordre dans une table selon l'ordre croissant de la date et l'heure
voila ce que j'ai ecrit mais ça ne marche pas


procedure TSTOCK.actualiserClick(Sender: TObject);
var    i:integer;
begin

        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('SELECT num,code,date, heure from    stock   ORDER BY DATE,HEURE');
        Query1.ExecSQL;
        query1.Active:=true;

   for i=1 to query1.recordcount do
      begin
        stock.Filtered:=false;
        stock.Filter:='code='+quotedstr(query1.FieldValues['code']);
        stock.Filtered:=true;
        
        stock.edit;
       stock.fieldvalues['num']:=inttostr(i);
        stock.post;

        query1.next;
end

Je t'ai donné quelques pistes par MP mais précise "mais ça ne marche pas".

Dis-toi bien que ça n'a jamais marché et que ça ne marchera jamais. Au mieux, ça fonctionnera !


May Delphi be with you !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

après des modifications faites, dès que je click sur le bouton actualiser la première donnée est modifiée à la valeur "0" mais après le message suivant s'affiche "edition impossible , car un autre utilisateur à modifié l'enregistrement"

après des modifications faites, dès que je click sur le bouton actualiser la première donnée est modifiée à la valeur "0" mais après le message suivant s'affiche
"edition impossible , car un autre utilisateur à modifié l'enregistrement"

procedure TSTOCK.actualiserClick(Sender: TObject);
var    i:integer;
begin

        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('SELECT num,id,code_stock,date, heure from    stock   ORDER BY DATE,HEURE');
       // Query1.ExecSQL;
        query1.Active:=true;
         query1.first;

   for i:=0 to query1.recordcount-1 do
      begin
        table1.Filtered:=false;
        table1.Filter:='id='+quotedstr(query1.FieldValues['id']);
        table1.Filtered:=true;

        table1.edit;
        table1.fieldvalues['code_stock']:=inttostr(i);
        table1.post;
        query1.next;
      end ;


merci