ButtonコンポーネントのOnClickイベントで次のように記述します。
procedure TForm1.Button2Click(Sender: TObject);var msg : string;begin msg := DBGrid1.DataSource.DataSet.FieldByName('DENNO').AsString; ShowMessage(msg);end;