在cxGrid表格中如何获得当前列的字段名

var
  GridDBTableView:TcxGridDBTableView;
  ColIndex:Integer;
  FieldName:string;
   begin
  GridDBTableView := TcxGridDBTableView(TcxGridSite(TcxButtonEdit(Sender).Parent).ViewInfo.GridView);
  ColIndex := TcxGridTableController(TcxGridSite(TcxButtonEdit(Sender).Parent).ViewInfo.GridView.Controller).FocusedColumn.Index;
  FieldName := GridDBTableView.Columns[ColIndex].DataBinding.FieldName;
end;