Cambiar el caption de un boton segun su nombre

[IVAND]

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



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;

[IVAND]

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

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