Проблема с динамичными объектами

[factually]

Процедура в потоке:

procedure MagicThread.paneladd; 
var n:integer;
for n:=0 to list.Count-1 do begin
   panel:=TsPanel.create(form4);
   panel.parent:=form4.grp3;
   form4.check:=TsCheckBox.Create(form4);
   form4.check.Parent:=panel;
   form4.check.Caption:=list[n];
   form4.l2:=TsLabel.Create(Form4);
   form4.l2.Parent:=panel;
   Form4.l2.Caption:='Открыть';
   Form4.l2.OnClick:=Form4.onclick;
end;
end;

Необходимо на событие l2.onclick открывать ссылку в браузере с уникальным кодом из check.caption или list[n].
Пробую так:

procedure TForm4.onclick(Sender: TObject);
begin
ShellExecute(application.Handle,'Open',PChar('https://link.com/index.php?='+(check.caption)),Nil,Nil,SW_SHOWDEFAULT);
end;

Проблема в том, что после выполнения процедуры paneladd в потоке, значение check.caption всегда равно значению самого последнего чекбокса, т.е. самой последней строчки в list. А мне нужно, чтобы событие клика на объект l2 всегда соответствовало уникальному коду в check.caption, т.е. list[n] как при выполнении процедуры.

[Alex11223]

Какому коду? Вы о чем?

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

MagicThread

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

form4

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

l2

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

check

хорошие имена.

[factually]

Alex11223, код для ссылки из 6 цифр, например: 465603

[Аватар]

form4.check:=TsCheckBox.Create(form 4);

Чего это? В смысле check. Понятно, что в check указатель на последний созданный объект. И в потоке визуальные компоненты создаешь? Смысл сего действа? В sender-е OnClick-a передается указатель на объект, на котором кликнули, вот с него и бери информацию.

[factually]

Сообщение от Аватар

В sender-е OnClick-a передается указатель на объект, на котором кликнули, вот с него и бери информацию.

А как с него брать информацию? Можно пример?

[Аватар]

Ну если 6 цифр, то их можно в Tag засунуть. Или в том же Tag индекс массива хранить, в котором какая-то информация. TsLabel(Sender).Tag

[come-on]

за каким тут этот недоделаный поток? )) узас кламесный

[factually]

Сообщение от Аватар

Ну если 6 цифр, то их можно в Tag засунуть. Или в том же Tag индекс массива хранить, в котором какая-то информация. TsLabel(Sender).Tag

Спасибо!) Так и сделал, всё заработало как нужно.