Sockety read

Cześć piszę program w którym używam socketów fragment kodu logowania:

 
...
ClientSocket1.Socket.ReceiveBuf(nagl,sizeof(theader));
if nagl.typ =$0035 then
 memo1.Lines.Add('Logowanie OK');
...

Loguje się i przebiega wszystko dobrze i w memo1 pojawia się linia Logowanie OK ale kiedy próbuję to zrobić inaczej to znaczy w zdarzeniu ClientSocket1Read dodaje kod:

 
...
Socket.ReceiveBuf(nagl,sizeof(theader));
if nagl.typ =$0035 then
 memo1.Lines.Add('Cos przyszło');
...

To żadna linia do memo się nie dodaje... dlaczego?

A przeczytałeś opis OnRead w helpie?
Occurs when a client socket should read information from the socket connection.

property OnRead: TSocketNotifyEvent;

Description

Write an OnRead event handler to read from the socket connection. If the socket is a blocking socket, use a TWinSocketStream object to read from the connection. Otherwise, use the methods of the Socket parameter to perform the actual reading.