buton en ciclo for

[rolando_s]

si tengo 25 botones en un form y quiero cambiarles el caption a todos...

ES NECESARIO QUE NOMBRE LOS 25 BOTONES?!?!??!

Código Delphi [-]
 procedure TSalas.FormActivate(Sender: TObject);
 var h:integer;
 var a:string;
 begin
    with query1 do
    begin
       for h:=1 to 25 do
          arreglo[h] := IntToStr(h);
       for h:=1 to 25 do
          begin
             sql.clear;
             sql.add('select*from usopc where inde='+arreglo[h]);
             open;
             USARVARIABLE H.Caption:=(fieldbyname('nombre').asstring);
          end;
       end;
    end;
 end.