两个问题，关于读卡和控件循环附值

Question

1现作一会员卡的程序我怎样控制卡号是刷卡刷上去的而不能手工写入;
2在VB中有控件数组这个概念，我怎么在DELPHI中取数据库的值给LABEL或者其它控件付值；还有我能不能在程序运行中动态的创建一些控件

Answer 1

回答1：在edit的keypress里面处理。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;
回答2：可以动态创建控件，或动态给控件的属性赋值。

Answer 2

这里有一个动态生成控件的例子：
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=106768