[[poliburro]]

Código Delphi [-]
  //Obtengo el número de columna del DbGrid
  TStringGrid(MiDbGrid).Col
 
  //Obtengo El índice del campo seleccionado en el dbgrid
   MidbGrid.SelectedIndex
 
  //Aprovecho el Index para obtener información del campo seleccionado
   MiDbGrid.colums[MidbGrid.SelectedIndex].Field.FieldName
   MiDbGrid.colums[MidbGrid.SelectedIndex].Title

Espero que te sirva