Delphi问题请指教

我现在在编一个成绩管理系统，其中设计了一个修改数据的模块，其中在这个窗体中，设置了一个Grid控件用来显示选定的数据表中的数据。那么当选定了要修改的表后，DBGrid中的字段(如姓名)就会发生相应的改变，要求它们改变时相应的下边的label控件的数量和它们的caption也相应的改变为Grid中相应的表中的字段数量和字段名。
主要是界面问题，就是说让动态的在窗体中生成label控件，这个控件的数量和Caption名是Grid中的表的某个字段的名称。（因为我可以随时改变Lable的LableName,相应的就要让界面发生变化）,下面这个代码只能实现把DBGrid中所有的字段都显示出来了,可是我只要求显示ADOQuery中学生姓名便可,如:Label1.caption = '张学友',Label2.caption = '刘德华',有多少人程序运行后就有多少个Label,并且显示名字,请各位师兄指点指点:
var
i:Integer;
Lab:array of TLabel;
begin
if length(Lab)> 0 then //判断是否已经创建，如果有就删除
begin
for i:=0 to Length(Lab)-1 do
begin
FreeAndNil(Lab[i]);
end;
end;

SetLength(Lab,ADOQuery1.FieldCount);
for i :=0 to ADOQuery1.FieldCount-1 do
begin
Lab[i]:=TLabel.Create(Self);
Lab[i].AutoSize:=True;
Lab[i].Parent:=Panel1;
Lab[i].Top:=Trunc((i div 8)*70); //每行8个，每个间隔70
Lab[i].Left:=Trunc((i mod 8)*70);
Lab[i].Caption:=ADOQuery1.Fields.Fields[i].FieldName;

Delphi问题请指教 请指教 delphi 窗口弹出的问题 delphi 新手问题，各位达人指教 [Delphi]想写个这样的程序，请高手指教~~ 关于Delphi的问题,请帮帮忙 关于delphi的问题，请帮忙！ delphi 小问题 请大哥们指点 delphi高手请近TComponentList问题。 有关DELPHI的问题请各位赐教 请高手看下delphi数组问题