Клиент-сервер (Сокеты) / Delphi

[unreal2x]

Всем привет!
У меня проблемка, и не знаю как решить...

На стороне сервера, отправляю сообщение клиенту.

procedure TForm2.Button3Click(Sender: TObject);
begin
ServerSocket1.Socket.Connections[0].SendText('text');
end;

На стороне клиента, хочу принять сообщение от сервера.

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

- Но отправленное сообщение не принимается клиентом. У кого-нить есть идейки как все наладить?