自动添加按钮功能-----如何根据数据库记录数，自动添加按钮?

如何根据数据库中字段名为Machine为每个字段创建一个以Machine 为名的按钮

数据库内容如下


machine （字段名）

RRT-01

RRT-02

RRt-03

怎样才能为 RRT-01 、RRT-02 、RRt-03 动态创建按钮，且Button> Caption= "Machine 名 "

[解决办法]
vector <TButton *> PVecButton;
while(!ADOQuery-> Eof){
TButton * bt = new TButton(this);
bt-> Caption = ADOQuery-> FieldByName( "ButtonName ")-> AsString;
PVecButton.push_back(bt);
}

使用PVecButton是为了方便管理 比如删除操作
最后使用完毕
vector <TButton *> ::iterator iter;
for(iter = PVecButton.begin(); iter != PVecButton.end(); ++ iter){
delete (*iter);
}
PVecButton.clear();
[解决办法]
int i = 0;
while(!ADOQuery-> Eof)
{
i++;
TButton * button = new TButton(Application);
button-> Parent = this;
button-> Name = "B " + IntToStr(i);
button-> Left = ...
button-> Top = ...
button-> Caption = ADOQuery-> FieldByName( "machine ")-> AsString;
}