如何动态建表

Question

with Query do
    begin
      //已经判断过这个表是否存在，如果存在则删除
      if i<>-1 then
      begin
        close;
        Sql.Clear;
        Sql.Add('DROP TABLE '+sTableName);
        ExecSql;
      end;
      StrTemp:=GetDataType(fpDataSet,tFileType);//得到表结构的描述
      if ExitEnabled=true then Exit;
      Close;
      Sql.Clear;
      SQL.Add('CREATE TABLE '+sTableName+' ('+StrTemp+' )');
      ExecSql;
      close;
      Sql.Clear;
      Sql.Add('select * from '+sTableName+' where 1=0');
      Active:=true;
     end;