如何用变量来调用控件？(100分)

我建立了Label0~Label9，现在想用一个循环来依次更改其Caption的值，

我应该如何实现？谢谢了。

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
FLabel: TComponent;
begin
for I := 1 to 10 do
begin
FLabel := FindComponent('Label' + IntToStr(I));
if Assigned(FLabel) then
(FLabel as TLabel).Caption := 'Test' + IntToStr(I);
end;

end;

谢谢。