想把从一个表查询到的结果生成新表，该怎么实现？
我用了 Query1 Datasource1 Dbgrid1 Button1

添加如下程序代码：
procedure Tform1.Button1.click(sender.TObject);
var str:string;
begin
str:='select * into 备用题库 from 题库 where 章节='' 1 ''';
Query1.close;
Query1.sql.clear;
Query1.sql.add(str);
Query1.EXECSQL;
end;
end.

程序运行没有问题，但运行后一点按钮就出问题了，不知道是什么原因，请大家意见

还是出问题了；提示显示：
project zctg.exe raised exception class EDBEngineError with message 'invalid use of keyword'
token:into
line number:'1' .process stopped. use step or run to continue.
是哪里出问题了啊，谢谢指导！