[braindrainer]

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

Код:

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;

И

Код:

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

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