[Novás]

Perdón, se me ha colado una cosilla

Código Delphi [-]
for i:=0 to ComponentsCount-1 do
  begin
    if Components[i].Tag=1 then (Components[i] as TButton).Color:=fichero.readinteger('botones','color',boton1.color);
  end;