Buttonが10個あって、全部を処理したいんだけど、ループじゃ無理？

var
Int: Shortint;
begin
for Int := 1 to 10 do
Button Int .Caption := '〜〜';


っていうような感じでやりたいんだけど、もちろん（？）エラーでます。
一つずつ書くしか無理？