Delphi控件cxGrid 如何动态创建列?

var i: Integer;
  Column: TcxGridDBColumn;
  cxView: TcxGridDBTableView;  
begin
  cxView := Self.Levels[0].GridView as TcxGridDBTableView;
  if cxView.DataController.DataSource <> nil then
    if cxView.DataController.DataSource.DataSet <> nil then
    begin
      cxView.ClearItems;
      for i:=0 to  cxView.DataController.DataSource.DataSet.FieldCount-1 do 
    	begin
         Column := cxView.CreateColumn;
         Column.DataBinding.FieldName := cxView.DataController.DataSource.DataSet.Fields[i].FieldName;
         Column.PropertiesClass := TcxTextEditProperties;
      end;
    end;
end;

 

for i := 0 to Query.FieldCount - 1 do   
begin   
   cxGrid.CreateColumn;   
   cxGrid.columns[i].DataBinding.FieldName := Query.Fields[i].DisplayName;   
   cxGrid.Columns[i].Caption := 'XXXX';   
   cxGrid.Columns[i].Width   :=80;   
end;