如何通过名字(string)引用对象？

Question

有一组按顺序命名的label 名为labelXY (X:1-4,Y:1-10)
和一个stringgrid，现需要将表格的各元素值填入该组label中，类似：
for X:=1 to 4 do
   for Y:=1 to 10 do
   sumthingfunction('label'+ inttostr(X) +inttostr(Y)) := stringgrid.cells[X,Y]
这个 sumthingfunction该用什么函数？

Answer 1

for X:=1 to 4 do
   for Y:=1 to 10 do
   TLabel(FindComponent('label'+ inttostr(X) +inttostr(Y))) := stringgrid.cells[X,Y]

Answer 2

for X:=1 to 4 do
   for Y:=1 to 10 do
  (FindComponent('label'+ inttostr(X) +inttostr(Y)) as TLabel).caption:= stringgrid.cells[X,Y]