临时表字段的问题，搞了一天也搞不定

Question

//建临时表
         with (activemdichild as TfrmZfphb).ClientDataSet1 do
         begin
            Close;
            //IndexDefs.Clear; 
            FieldDefs.Clear;
            with FieldDefs.AddFieldDef do
             begin
               DataType := ftInteger;
               Name := '名次';
             end;            with FieldDefs.AddFieldDef do
             begin
               DataType := ftString;
               Name := '姓名';
               Size :=10;
             end;
            with FieldDefs.AddFieldDef do
             begin               DataType :=ftFloat;
//               Size := 10;
               Name := 'XXX';
            end;
            with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX1';
            end;            with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX2';
            end;           with FieldDefs.AddFieldDef do
            begin
             DataType :=ftFloat;
              Name := 'XXX3';
            end;
           with FieldDefs.AddFieldDef do
            begin
             DataType :=ftFloat;
             Name := 'XXX4';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX5';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX6';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX7';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX8';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX9';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX10';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX11';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX12';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX13';
            end;
           with FieldDefs.AddFieldDef do
            begin
              DataType :=ftFloat;
              Name := 'XXX14';
            end;
          CreateDataSet;
         end;