Проблемка с TClientSocket

[Yoger]

Не отрабатывает событие OnRead для TClientSocket при передаче на него с сервера сообщения. В отладке при пошаговом выполнении при установке break на отсылке сообщения ответное сообщение приходит и событие выполняется. Как только снимаю break, сообщение уходит, сервер его принимает, отсылает, но клиент его не обрабатывает. Может, у кого-нибудь уже была такая ситуация?

[Stilet]

Код в студию

[Yoger]

По событию OnConnect шлем сообщение

procedure TMainForm.CSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
var
SendErr: Integer;
begin
SendErr:=Socket.SendText(tBuf);
end;

На сервере сообщение обрабатывается, отсылается ответ (серверный код предоставить пока не могу). Однако в режиме отладки без break событие не отрабатывает

procedure TMainForm.CSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var tbuf:string;
begin
Response:=Socket.ReceiveText;
Showmessage(Response);
end;

[Stilet]

Вроде все законно,
А может не срабатывает ShowMessage? Попробуй beep поставь, у меня было такое что ShowMessage не корректно работало, потом я всегда для теста ставил BEEP.