使用DataSource.DataSet.RecNo可以得到dbgrid選中的是第幾行，示例程式碼如下：

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(dbgrd1.DataSource.DataSet.RecNo));
end;

效果如下：

先用ADOQuery連線資料庫在DBgrid內顯示出來~~~~之後在DBgrid的OnCellClick事件寫如下程式碼
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
self.Edit1.Text:= inttostr(Column.ID); //列號
self.Edit2.Text:= inttostr(self.ADOQuery1.RecNo); //行號
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    Edit2.Text := IntToStr(Column.ID);
    Edit3.Text := IntToStr(Self.Query1.RecNo);
    Edit4.Text := Column.FieldName;
end;