Busqueda de Componente y propiedades

[ecfisa]

Hola.

Sólo un detalle, en ese caso la comprobación:

Código Delphi [-]
  if Assigned(butaca)then  // <-
        begin
          if (butaca is TCheckBox) then

es innecesaria.

Dado que el operador is devuelve True si el objeto evaluado pertenece a la clase o es descendiente de ella y False de otro modo (incluyendo también a nil), podes escribir:

Código Delphi [-]
...
 var
  i: Integer;
  Butaca: TComponent;
begin
  for i := 0 to ComponentCount-1 do
  begin
    Butaca := FindComponent('F1_'+IntToStr(i+1));  // +1 si los nombres fuesen: F1_1, ..., F1_10
    if Butaca is TCheckBox then
      TCheckBox(Butaca).Checked := True;
  end;
end;

Lo que no alcanzo a comprender bién es la mecánica de la obtención del nombre desde la tabla, pero en principio podrías hacer uso del método Locate.

Saludos