MENAMBAHKAN NO URUT SECARA OTOMATIS DARI DATABASE

DataModule5.ADOQuery4.sql.Clear;
DataModule5.ADOQuery4.sql.Add('Select * from tb_rusak');
DataModule5.ADOQuery4.Open;
  if DataModule5.ADOQuery4.recordcount > 0 then
    Jml:=DataModule5.ADOQuery4.recordcount +1
  else
    Jml:=1;
    DBEdit7.Text:=IntToStr(Jml);