Не обробатывается условие в ClientSocketRead

[dubailand]

Добрый вечер, господа программисты!

Нужна ваша помощь. Пишу чат для локальной сети. Требуется фильтровать получателей. Делаю это через отправку ключа (=>>Имя пользователя, Кому<<= Текст Сообщения) и обрабатываю у клиента: отображать сообщение или нет. Но код не работает. Помогите, пожалуйста.


Получение данных с сервера:

procedure TForm2.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      if copy(Socket.ReceiveText,1,3)='=>>' then
       if copy(Socket.ReceiveText,4,Pos('<', Socket.ReceiveText))='COMP-NAME<' then
       begin
       Memo1.Lines.Add(Socket.ReceiveText);
      end;    
end;

Помогите, пожалуйста, или подскажите другой способ реализации.
Заранее спасибо!

[xoodoo]

Первым вызовом Socket.ReceiveText ты выгреб все принятые данные на момент вызова.