Hola de nuevo ... haciendo pruebas, he realizado los siguientes cambios y ahora funciona.
Código Delphi
[-]
Código Delphi [-]
var
x : integer;
begin
For x := 0 To ComponentCount - 1 Do begin
If Components[x] Is TQRlabel Then begin
if TQRlabel(Components[x]).Tag = 1 then
TQRlabel(Components[x]).Caption :='HOLA';
end;
end;
end;
Muchas gracias por tu ayuda !!!
Saludos !!!