سؤال حول اضافة اسطر في DBGRIDE

[Mustapha29]

أنا أستعمل هذا الكود في إضافة الترقيم التلقائي

implementation
var Le_Dernier: SmallInt;

{..}
Bouton1Click
ADOTable1.First;
If ADOTable1.EOF then Le_Dernier := 1
else
begin
ADOTable1.Last;
le_Dernier := ADOTable1Num.Value + 1;
end;
ADOTable1.Insert;
ADOTable1Num.Value := Le_Dernier;