关于DevExpress的TDxDBGrid的问题(25分)

delphi的问题：
在form1里有一个TDBGrid和button1，DBgrid1连接DataSource1，Dbgrid1显示字段和数据为：
id id1 name
1 2 a

在button1的onclick事件为：
if dbgrid1.SelectedField=dbgrid1.Columns[0].Field then
begin
messagedlg('id',mtinformation,[mbyes],0);
end;
if dbgrid1.SelectedField=dbgrid1.Columns[1].Field then
begin
messagedlg('id1',mtinformation,[mbyes],0);
end;
if dbgrid1.SelectedField=dbgrid1.Columns[2].Field then
begin
messagedlg('name',mtinformation,[mbyes],0);
end;

运行时，只要dbgrid1的焦点在哪个字段，按button1就显示哪个字段。我的问题是，如果
把Tdbgrid改为DevExpress的TdxDbgrid，要实现同样的功能时，那么button1的onclick
事件如何写？

procedure TForm1.Button1Click(Sender: TObject);
begin
messagedlg(dxDBGrid1.FocusedField.FieldName,mtinformation,[mbyes],0);
end;

接受答案了.