for i:=1 to X dobeginTLabel(FindComponent('data'+inttostr(i))).caption:='11111111';end;FindComponent 根据控件名找到对应的控件 然后用 Tlabel 转成Label类型 再赋值
创建的东西放数组里, 按下标访问即可.
