Проблема приёма пакетов, OnRead принимает только первый сокет Опции

[S_lip]

Здравствуйте!
Я использую TClientSocket, чтобы отправит друг за другом несколько пакетов на сервер и сохранить ответы с него. Событие OnRead выглядит так:

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  addtobase(Socket.ReceiveText); //оперируем полученным пакетом
  if i<k then begin
    socket.SendText(makenewtext(i)); //отправляем новый пакет
    inc(i);
  end;
end;

Но почему-то эта процедура вызывается только один раз (после приёма первого пакета). Скажите, пожалуйста, почему так происходит и как это можно исправить?

Спасибо за внимание!

Сообщение отредактировано: S_lip - 7.08.2007 15:33