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;
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;