[poli-smen]

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

Убрать пробовал, компилируется , но обработчик

Код:

procedure TMyThread.ClientSocketConnect(Sender: TObject;  Socket: TCustomWinSocket);
begin
    Socket.SendText('test ');
end;

не отрабатывает в чем причина не пойму

Событие то происходит (наверное), но не обрабатывается, так как у тебя в потоке вместо обработки сообщений стоит "глухой цикл":

Код:

    while True do
    begin
    end;

В отдельном потоке сообщения нужно обрабатывать самостоятельно:

Код:

procedure TMyThread.Execute;
.....
var
  Msg: TMsg;
begin
.....
  // создаем сокеты
.....
  while not Terminated do
  begin
    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
  end;
.....
  // освобождаем сокеты
.....
end;