Проблема с отправкой текста через tclientsocket (delphi)

[dyonysos]

Вот что получается когда пытаюсь отправить текст!

сервер:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
label1.Caption:=socket.ReceiveText;
end;

клиент:

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Socket.SendText(edit1.Text);
end;

вроде делаю все правильно но не работает!в очередной раз прошу вашей помощи!

[havok]

у шрифта label-a набор символов поставьте "западный"