hombre, si tienes paciencia puedes ir nombrandolos uno por uno
Código Delphi
[-]
var but:tcomponent;
begin
with query1 do
begin
sql.clear;
sql.add('select*from usopc ');
open;
while not sql.eof do
begin
but := form1.findcomponent('boton'+(fieldbyname('inde').asstring);
if but <> nil then
Tbutton(but).caption := fieldbyname('nombre').asstring);
sql.next;
end;
end;
Saludos
PD: if but <> nil --> En la ayuda de findcomponent no dice que devuelva nil si no encuentra el componente, pero la prueba que he hecho devuelve nil si no lo encuentra.