showmessage(DBGrid1.DataSource.DataSet.FieldByName(DBGrid1.Columns
    [DBGrid1.SelectedIndex].FieldName).AsString);