buton en ciclo for

[[Lepe]]

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
       // como sé que es un boton, hago el cast
      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.