Llenar Un Monton De Botones

[Perrero80]

Holas soy new en el foro y espero que me puedan ayudar. Tengo un programa en el cual tengo 25 botones (parecen muchos, pero esuqe lo quiero hacer asi), mi problema es que debo de meterles en su caption valores diferentes a cada uno, sin que se repita el mismo numero en cada boton, y esta es la unica manera que conozco para hacerlo:

Código Delphi [-]
 {solo metere los datos, no importa si los sumeros se repiten}
Randomize();
Button1.caption:= InttoStr(Random(60)+1);
Button2.caption:= InttoStr(Random(60)+1);
Button3.caption:= InttoStr(Random(60)+1);
.
.
.Button25.caption:= InttoStr(Random(60)+1);

Realizarlo de esa forma me parece demasiado feo aparte de tedioso y quisiera saber si hay una manera de llenar de una manera mucho mas facil, los caption de esos butones.
Gracias de antemano

[vtdeleon]

Saludos

Mira a ver si con esto:

Código Delphi [-]
var
  i,n:Integer;
begin
  n:=0;
  for i:= 0 to ComponentCount-1 do
    if Components[i] is TButton then begin
      TButton(Components[i]).Caption:=IntToStr(n);
      Inc(n);
    end;
end;

Es algo rapidito, quizas necesite alguna depuracion

[dec]

Hola,

Acaso lo siguiente te proporcione alguna idea:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  Randomize;
  for i := 0 to ComponentCount-1 do begin
    if Components[i] is TButton then begin
      TButton(Components[i]).Caption :=
        IntToStr(Random(60)+1);
    end;
  end;
end;

PD. ¿Cómo es que te pusiste de apodo Perrero80? No tengo nada en contra de los perreros ni de los perros, sólo curiosidad.

[vtdeleon]

Jejeje me olvide del Random, ya dec se ocupo de eso