Потоки и компоненты в них

[Johnson]

Здравствуйте, уважаемые!
Столкнулся с проблемой, хотелось бы послушать ваши советы...

Программа создает при необходимости новый поток. Поток создает компонент. Как можно передать данные этому компоненту? Потоку назначил проперти Tag, пот создании компонента значение этого проперти назначается одноименному проперти компонента...

Конкретный пример:
Пишу тунеллер. На форме имеется TServerSocket, который принимает входящие подключения (от браузера к примеру). По теории нужно создать TClientSocket на внешний прокси и передать ему данные, которые получил сервер.
При установлении коннекта сервером - создаю новый поток, ему передаю значение SocketHandle (просто в качестве идентификатора Tag для клиента), новый поток стартует и создает клиент, клиент коннектится. Как можно найти указатель на этот клиент? Как правильнее передать ему пакет данных?

Заранее благодарен!

ПыСы: в ветку "Работа с сетью" пожалуйста не перекидывайте, проблема не с сетями, а с поиском указателя на компонент.

[Stilet]

Ну опиши свойство public, переменную, в которую создаешь экземпляр класса (компонент свой) тогда и обращайся к нему как к свойству потока.

[Johnson]

Проблема в другом... потоков будет довольно много, 10-20, в зависимости от активности браузера... проблемы у меня вызвало какраз нахождение нужного потока. КлиентСокет у меня итак в публике, а ещё есть проперти потока Tag, которое тоже в публике. Как правильно найти нужный поток (с указаным тэгом) ?
И ещё обращаться придется во время исполнения потока... передавать данные то надо незамедлительно, иначе лаги будут...

[TwiX]

Все потоки забиваются в массив.
Или сделать событие потоку, в котором он будет передавать Sender: TObject

[Johnson]

пример можно?

[TwiX]

var
  Form1: TForm1;
  a: array of TThread;
  thrdsDone, thrds: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin

    thrds:=StrToInt(Edit1.Text);
    SetLength(a, thrds);
    thrdsDone:=0;
    for i := 0 to thrds - 1 do
    begin
      a[i]:=TThread.Create(false, '25a2fb63649d');
      a[i].tag:=i;
      a[i].OnDone:=ThrdDone;
    end;
end;

[Пепел Феникса]

1)внутрь Tag можно передать указатель на обьект(на всякий говорю что просто переменную любого класса) с приведением типов.
2)можно описать поток, и задать ему нужные св-ва(поля класса), так и конструкторы и прочее.