配列に対応したCaptionを入力するには？

解決

鉄 2007-11-20 23:30:39 No: 28607 IP: 192.*.*.*

質問失礼しますm_ _m

procedure TMainPage.N1Click(Sender: TObject);
type
  x=array[1..10] of TButton;
var
  Button:x;
  c:integer;
begin
  c:=0;
  repeat
    c:=c+1;
    Button[c]:= TButton.Create(Self);
    Button[c].Parent:= Panel1;
    Button[c].Caption:= 'ボタン';
    Button[c].Width:= 35;
    Button[c].Height:= 70;
    Button[c].Align:= altop;
  until c = 10;
end;

上記のようなプログラムでボタンを生成する際、10個のボタンすべてのCaptionが「ボタン」となってしまいます。
これをそれぞれ、「ボタン1」、「ボタン2」〜〜〜「ボタン10」と表示させたいのですが、どのようにすればいいでしょうか？？
初心者ですがどうかお願いします。

編集削除

うんと 2007-11-20 23:32:47 No: 28608 IP: 192.*.*.*

>Button[c].Caption:= 'ボタン';

を

Button[c].Caption:= 'ボタン'+IntToStr(c);

じゃないかな

編集削除

鉄 2007-11-20 23:46:57 No: 28609 IP: 192.*.*.*

ありがとうございます。おかげ様でできました！！！
ご指導感謝します。

編集削除