Расширенный QRLabel ?

[knt58dualtv]

Доброго дня всем
подскажите пожалуйста как можно перерисовать QLabel или QDBLabel
на примере QLabel.сaption:='привет' или QDBLabel.сaption:='привет'
в форме у меня есть 5 шт QLabel1...5,

и хочу вписывать текст в квадратики (телефоные номера, индификациолнный код и т.д.), я хочу повесить несколько QRShape+QRLabel, проименовать их по порядку (Lbl1, Lbl2... Lbl5) и динамически записать данные
for i := 1 to Length(MyText) do
TQRLabel(FindComponent('Lbl'+IntToS tr(i))).Text := copy(MyText,i,1);

но у меня не правильно выыодить как это на пример


Помогите пожалуйста

[ZuBy]

for i := 1 to Length(MyText) do
  TQRLabel(FindComponent('Lbl'+IntToStr(i))).Text := MyText[i];

[knt58dualtv]

Сообщение от ZuBy

for i := 1 to Length(MyText) do
  TQRLabel(FindComponent('Lbl'+IntToStr(i))).Text := MyText[i];

Может быть где то есть готовые такие компоненты -где скачать ?