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