SQL语句或动态建表问题？

Question

exsample:procedure TfrmMain.CreateNewTable(const strTableName: string;
                                  var NewTable : TTable);
var
  i : Integer;
begin
  NewTable := TTable.Create(self);
  with NewTable do
  begin
    Active := false;
    DataBaseName := 'MyDataBase';
    TableType := ttDefault;
    TableName := strTableName;    if not NewTable.Exists then
    begin
      with FieldDefs do
      begin
        Clear;
        with AddFieldDef do
        begin
          Name := 'TreatID';
          DataType := ftInteger;
          Required := True;
        end;
        with AddFieldDef do
        begin
          Name := 'Time';
          DataType := ftInteger;
          Required := True;
        end;
        for i := 0 to High(cnTemps) do
          with AddFieldDef do
          begin
            Name := cnTemps[i];
            DataType := ftFloat;
            Required := true;
          end;
      end;
      CreateTable;
    end;
    Close();
  end;
end;

Answer 1

select a.sum_temp ,a.sum_id
into  table2
from  table1  a
where ...

Answer 2

TABLE1（在TABLE3 中 SUM_ID为唯一[以前写错]）有多少条记录就动态建表TABLE2。TABLE2的字段以TABLE1的SUM＿ID的记录为名，然后把SUM＿TEMP的记录添加到TABLE2中
TABLE是建好了，要添加记录是件难事
TABLE1
Date       |Money | SUM_ID
-------------------------
2002-06-25 | 2000 | A0001
2002-06-25 | 3000 | A0002
2002-06-25 | 4000 | A0003
2002-06-26 | 5000 | A0001
2002-06-27 | 2000 | A0002TABLE2
-------------------------------
2002-06-25 | 2000 | 3000 | 4000
2002-06-26 | 5000 |      |     
2002-06-27 |      | 2000 |