ラベルにaを使うにどうすればいいでしょうか？

for a := 1 to 3 do
begin
Label1.Caption := IntToStr(a);
Label2.Caption := IntToStr(a);
Label3.Caption := IntToStr(a);
end;

このような感じをねらっています。

for a := 1 to 3 do
begin
Label[a].Caption := IntToStr(a);
end;