Проблемы с чатом

procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Port:=9090; 
//Порт сервера - любой, кроме 0 
ServerSocket1.Active:=true; 
//Запускаем наш сервер 
Memo1.Lines.Add( '['+TimeToStr(Time)+']'+' '+'Сервер запущен.');
//Выводим в Memo сообщение о запуске сервера
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ServerSocket1.Active:=false; 
//выключаем сервер 
Memo1.Lines.Add( '['+TimeToStr(Time)+']'+' '+'Сервер выключен.');
//Выводим в Memo сообщение о выключении сервера
end;
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(socket.ReceiveText); 
//Читаем, то что нам прислал клиент
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.ReadOnly := True;
//Запрещаем писать в Memo поле
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var tmp : string;
  i , len, lenTmp: integer;
begin
  tmp := Socket.ReceiveText;
  len := Length( tmp );
  Memo1.Lines.Add( tmp );
  i := 0;
  while ServerSocket1.Socket.ActiveConnections<i do
    if (ServerSocket1.Socket.Connections[i].Handle <> 0) then
      begin
        lenTmp := 0;
        try
          while lenTmp <= len do
            lenTmp := ServerSocket1.Socket.SendText(tmp);
         finally
          inc(i);
         end;
      end;
end;