[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.