想把从一个表查询到的结果生成新表，该怎么实现？
我用了 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.

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

procedure TForm1.BitBtn2Click(Sender: TObject);
var str:string;
begin
str:='select * into NewTable from 二手房源销售信息 where 地理位置'+' like'+''''+'%'+edit1.Text+'%'+'''';
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add(str);
ADOQuery1.EXECSQL;
end;
我用此法在DELPHI7.0中能生成新表!

凡是用SQL属性中的语句有返回结果的,不能用ADOQuery1.EXECSQL;得用ADOQuery1.open;

还是出问题了；提示显示：
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.
是哪里出问题了啊，谢谢指导！

str:='select * into 备用题库 from 题库 where 章节='' 1 ''';
是不是改为: str:='select * into 备用题库 from 题库 where 章节='+'1';

斑竹..很厉害啊.