while dxDBGrid1.ColumnCount > 0 do dxDBGrid1.Columns[0].Destroy;
for i := 0 to DM.ADOQry.FieldCount - 1 do begin dxDBGrid1.CreateColumn(TdxDBGridColumn); dxDBGrid1.Columns[i].FieldName := DM.ADOQry.Fields.Fields[i].FieldName; dxDBGrid1.Columns[i].Width := 100; dxDBGrid1.Columns[i].HeaderAlignment := taCenter; ...... end;