急,如何在程序中动态生成dxMemData并将结果显示在一个Dbgrid中?(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
dxMDTmpTable:TdxMemData;
begin
dxMDTmpTable:=TdxMemData.Create(Application);
with dxMDTmpTable.FieldDefs do
begin
Add('size',ftSmallint,0,False);
Add('type',ftSmallint,0,False);
end;
dxMDTmpTable.Open;
dsTmp.DataSet:=dxMDTmpTable
end;

各位大侠帮忙看看哪里写错了，我动态生成的表无法显示字段名。
（就是size，type字段没有创建成功）

试试这个：
var
dxMDTmpTable:TdxMemData;
begin
dxMDTmpTable:=TdxMemData.Create(Application);
with TIntegerField.Create(dxMDTmpTable) do
begin
FieldName := 'size';
DataSet := dxMDTmpTable;
end;
with TIntegerField.Create(dxMDTmpTable) do
begin
FieldName := 'type';
DataSet := dxMDTmpTable;
end;
dxMDTmpTable.Open;
DataSource1.DataSet:=dxMDTmpTable;

感谢xianjun,接受答案。