vari:Integer;Lab:array of TLabel;beginif length(Lab)> 0 then //判断是否已经创建，如果有就删除beginfor i:=0 to Length(Lab)-1 dobeginFreeAndNil(Lab[i])
;end;end;SetLength(Lab,ADOQuery1.FieldCount)
;for i :=0 to ADOQuery1.FieldCount-1 dobeginLab[i]:=TLabel.Create(Self);Lab[i].AutoSize:=True;Lab[i].Parent:=Panel1;Lab[i].Top:=Trunc((i div 8)*70)
;//每行8个，每个间隔70Lab[i].Left:=Trunc((i mod 8)*70)
;Lab[i].Caption:=ADOQuery1.Fields.Fields[i].FieldName;Lab[i].Color:=clRed;end;我已经加了注释。
