TServerSocket. Не срабатывает обработчик OnClientRead

[grafx]

Вопрос в следующем.
Используется Delphi 7, и TServerSocket<->TClientSocket.
Оба находятся в неблокирующем режиме.

Так вот, вопрос.
В обоаботчике событий сервера OnClientRead прописано следующее:
Memo1.Lines.Insert(0,'> '+Socket.ReceiveText);

все хорошо, при отправке данных с клиента они печатаются, даже если они двоичные.

Но вот если написать
procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Insert(0,'> '+IntToStr(Socket.ReceiveLength));
end;

обработчик вызывается только раз после первой отправки данных. То же самое если там написать socket.ReceiveBuf(...).

В чем проблема? Практически все простейшие примеры, что я находил, принимали текст и работы вполне стабильно. А тут принимается только первая отправка.

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

в вашем втором примере вы данные не приняли, видимо в этом и дело.

[grafx]

Да, все верно. Может, оптимизатор решил что если я не считываю данные, то мне весь метод не нужен. В общем хз, но с чтением срабатывает.