在Delphi中有没有办法动态给表格添加列？解决方案

在Delphi中有没有办法动态给表格添加列？
在Delphi中有没有办法动态给表格添加列？用参数传递
我用语句:SQL.Add( 'alter   TABLE   score   add   :kch   varchar(20)   NULL ');
                  ParamByName( 'shx ').Value:=Trim(kchm.Text);
                  老是跳出第一行参数有语法错误

[解决办法]
SQL.Add( 'alter TABLE score add '+Trim(kchm.Text)+ ' varchar(20) NULL ');

[解决办法]
s:= 'alter TABLE ztzb add '+trim(kchm.text)+ ' varchar(20) NULL ';
with adoquery1 do begin
close;
sql.clear;
sql.add(s);
execsql;
end;

[解决办法]
SQL.Add( 'alter TABLE score add ' ' '+Trim(kchm.Text)+ ' ' ' varchar(20) NULL ');
看仔细，和前面几楼不同的。
[解决办法]
SQL.Add( 'alter TABLE score add '+quotedstr(kchm.Text)+ 'varchar(20) NULL ');