در قسمت لیست query یک فیلد از نوع Calculate ایجاد کن، سپس آن فیلد را در DBGrid ایجاد کرده و بهد در رویداد GetText فیلد جدید کد زیر را وارد کن:

Text := IntToStr(adoQuery.recNo)