能不能在TADOCommand组件中动态输入表名称和条件值删除相关记录?

[土著巫师]

我用TADOCommand组件通过TADOConnection连结组件打开ACCESS数据库，想根据不同的表名删除同一条件的记录，大致如下：
TADOCommand1->CommandText = "Delete From :TableName Where NewsID=:NewsID";
...
...
TADOCommand1->Parameters->ParamByName("TableName")->Value = Edit1->Text;
ADOOCommand1->Parameters->ParamByName("NewsID")->Value = Edit2->Text;
ADOOCommand1->Execute();

在Edit1中输入表名称，在Edit2中输入字段NewsID的值，执行最后三句,系统报From子句错，不知道为什么？(附：参数的相关设置已设置)请高手赐教!谢。

[烟波三千里人鬼五百年]

Paramter不是这么用的,From :TableName 不允许阿,
这样做吧
CommandText = "Delete From "+Edit1->Text" Where NewsID=:NewsID";

[烟波三千里人鬼五百年]

CommandText = "Delete From " + Edit1->Text + " Where NewsID=:NewsID";