对一串label控件赋值，怎么写简单点？

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
  vComponent: TComponent;
begin
  for I := 1 to 10 do begin
    vComponent := FindComponent('Label' + IntToStr(I));
    if Assigned(vComponent) then
      TLabel(vComponent).Caption := '试试看';
  end;
end;

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
    for i:=0 to Componentcount-1 do
      if (Components[i] is Tlable) then 
         (Components[i] as Tlable).caption:='...';
end;

Answer 2

FindComponent('Label'+IntToStr(i)).caption:=IntToStr(i)