[braindrainer]

Доброго дня суток)) Решил написать свой маленький чатик для общения в локалке. НО, интересная штука возникла, первое сообщение с любого конца доходит спокойно, а потом начинает подвисать, т.е. из последующих 20 сообщений может быть дойдет 1 или 2 и то может быть. Перепробовал все, демки Делфи смарел, там слишком заумно, мне так не нужно. Вот собсна сам код :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin try tcpclient1.Open; for i:= 1 to (memo2.Lines.Count) do tcpclient1.Sendln(memo2.Lines[i]); tcpclient1.Close; except showmessage('oops'); end; memo2.Text :=''; end;

И

Код:

1 2 3 4 5 6 7 8

procedure TForm1.TcpServer1Accept(Sender: TObject;   ClientSocket: TCustomIpClient); begin try memo1.lines.add(clientsocket.Receiveln); except showmessage('oops'); end; end;

Мож кто поможет чем-нить?