Cambiar el caption de un boton segun su nombre
 

Hola a todos

Como siempre , espero su ayuda ya estoy medio ciego jejejeje

Tengo en un formulario creados 45 botones (Tbutton) los cuales dependiendo de un valor se tienen que pintar dependiendo del valor los n botones

ejemplos
el ejemplo es para ventas de boletos de autobuses

el autobus tiene 45 asientos que representan 45 botones , si van vendiendo 4 deberian pintarse los botones cuyo nombre empiezen con B (asi le puse el nombre a los componentes) ejemplo b1,b2,b4,b4 si van vendiendo 10 de la misma manera

coloco el codigo que funciona bien , pero al formulario he agredado un componente TJfedit y me cambia tambien el caption

Espero puedan ayudarme mil gracias como siempre

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  conta,x,x1:Integer;
  begin
 conta:=2 ;
 for x:=0 to form1.controlcount -1 do
  if Components[x] is TButton Then
    for x1:=1 to conta do
     if Components[x1].Name='b'+Trim(IntToStr(x1)) Then
        If Components[x1] is TButton then
        TButton(form1.controls[x1]).Caption:='HOla';

end;

Jajajaja yo creo que es el cansancio , esta es la solucion

Código Delphi [-]
var
  i:Integer;
begin
 for i := 1 to 2 do begin
   with TButton(FindComponent('b' + IntToStr(i))) do
   begin
     caption:='Hola';
   end;
End;

Gracias a todos