Чат для локальной сети

[Vladya]

Привет всем! ребята у меня следующий вопрос: при написании чата столкнулся с проблемкой, сам чат работает нормально вот только всплывающее окно не отображает сообщение которое пришло (как в аське). Сейчас попробую более подробно обьяснить: у меня есть процедура считывания сообщение, в этой процедуре я считываю новое сообщение с сервера и записываю его в поле мемо, и в этой жэ процедуре я поставил что если программа свернута в трей то должно появляться всплывающее окошко в котором будет новое сообщение. Естественно я присваиваю новое сообщение переменной а потом эту переменную отобращаю в сообщении, но дело в том что эта переменная все время пустая, тоесть никакое значение ей не присваивается, и соотвецтвенно у меня вылезает пустое окошко. Подскажите может я просто не правильно присваиваю новое сообщение переменной?
вот так я записываю новое сообщение в поле мемо:

ChatMemo.lines.Add(Socket.ReseiveText())

а вот так присваиваю переменной новое сообщение:

NewMsg:=Socket.ReceiveText()

В коде могут быть ошибки (пишу по памяти), но думаю смысл ясен, если кто нить знает исправьте пожалуйста.

[Terran]

С виду правильно. Попробуйте ещё так:

ChatMemo.Lines.Add(ServerSocket1.Socket.ReceiveText);
...
NewMsg:=ServerSocket1.Socket.ReceiveText;

[Vladya]

Нет, так все равно не работает
Вот моя процедура, вся может я все таки где то ступил.

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
Var NewMsg: String;
begin
ChatMemo.Lines.Add(Socket.ReceiveText());
 if Form1.Showing then
  Begin
   NewMsg:=Socket.ReceiveText();
   AdvAlertWindow1.AlertMessages.Clear;
   AdvAlertWindow1.AlertMessages.Add.Text.Text:='';
   AdvAlertWindow1.AlertMessages.Items[0].Text.Text :=NewMsg;
   AdvAlertWindow1.Show;
  End;
end;

[Terran]

Вы немного не правильно принимаете данные. Сделайте так:

Procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
Var
NewMsg: String;
begin
NewMsg:=Socket.ReceiveText;
ChatMemo.Lines.Add(NewMsg);
if Form1.Showing then
Begin
AdvAlertWindow1.AlertMessages.Clear;
AdvAlertWindow1.AlertMessages.Add.Text.Text:='';
AdvAlertWindow1.AlertMessages.Items[0].Text.Text:=NewMsg;
AdvAlertWindow1.Show;
End;

Будет точно работать.

[Vladya]

Спасибо большое теперь все работает!