如何动态建立表单？(50分)

我遇到一个很头疼的问题，就是如何动态建立sql server的表，我的代码如下：
var
query1:tquery;
table_name:string;
begin
table_name:=edit1.Text;
query1:=tquery.create(self);
query1.DatabaseName:=passwd.database1.databasename;
with query1 do begin
sql.clear;
sql.add('create table :table_name(param1 varchar(20),message varchar(140),tflag decimal)');
query1.ParamByName('table_name').asstring:=edit1.text;
execsql;
end;
end;
我的表名由edit控件中输入,但运行是老出错，总是提示找不到参数table_name
请各位高手提点一二，多谢，多谢！[]

这样写试试看
sql.add('create table '+#39+edit1.text+#39+' (...)');

query1.ParamByName('table_name').asstring:=edit1.text; 就不要了

Sql.Add('creat table '+strTableName+'(
item1 varchar(2),
item2 varchar(3)
primary key(item1)
)')
应当可以了

多人接受答案了。