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;
begin
cxGrid.CreateColumn;
cxGrid.columns[i].DataBinding.FieldName:=Query.Fields[i].DisplayName;
cxGrid.Columns[i].Caption:='XXXX';
cxGrid.Columns[i].Width :=80;
end;