الترقيم الأوتوماتيكي أو الألي

شكرا هذا هو الحل للإفادة

procedure TF_TOUT.BT_TARTIBClick(Sender: TObject);
begin
 ADOTable1.First;
 K:=0;
 if Edit1.Text<>'' then K:=StrToInt(Edit1.Text);
 
 while (not (ADOTable1.eof)) do
 begin

   ADOTable1.Edit;
   ADOTable1.FieldByName('TARTIB').clear;
   ADOTable1.FieldByName('TARTIB').AsInteger := k;
   ADOTable1.Post;
   k := K + 1;
   ADOTable1.Next;
 end;
 ADOTable1.First;
end;