اضافه کردن اتوماتیک به فیلد id و نمایش آن در یک EditBox

با سلام

من یه جدولی دارم که دارای فیلدی به نام id هستش میخواستم با استفاده از دستورات sql بالاترین مقدار ثبت شده در این فیلد رو پیدا کنم و یک واحد به آن اضافه کرده و بصورت پیش فرض در edit1.text نمایش بدم
من خودم برای بدست آورن بزرگترین مقدار از دستور زیر استفاده کردم ولی نمیدونم چطور نتیجه رو تو edit1.text نمایش بدم

کد:

---

with ADOquery1 do
begin
      sql.clear;
      sql.add('select Max(id) as max_id from tablename');
      open;
end;

---

لطفا اگه کسی اطلاعاتی در این زمینه داره راهنمایی کنه خیلی برام مهمه

سلام از این کد استفاده بکن

var count:integer;

count:=0;
DM.TMalek .First ;
while (not DM.TMalek.Eof ) do
begin
DM.TMalek.Next ;
count:=count+1;
end;
count := count+1;
DM.TMalek.Insert ;
DBEdit1 .Text := VarToStr(count );