Error Ejemplo Chat en Indy tcp (server & socket)

[Clantt]

Hoal a todos, m edispuse a aprender como se utilizan los Indy components con lo ejemplos libres que hay en nevrona pero el primer ejemplo del chat cuando el cliente se conecta con el servidor este se cuelga y como no se mucho de esto me quede out side al revisar esta es la parte del código que no funciona bien:

Código Delphi [-]
 procedure TForm1.Timer1Timer(Sender: TObject);
 var
   Com,
   Msg : String;
 begin
   if not IdTcpClient1.Connected then
     exit;
   Msg := IdTCPClient1.ReadLn('', 5);
   {
     parte que no funciona, todo este código esta dentro de un
     timer, a lo mejor tenga  que cambiar algo en el programa
     servidor?
   }
   // showmessage(Msg);
 
   if Msg <> '' then
   begin
     if Msg[1] <> '@' then
     begin
       { Not a system command }
       memLines.Lines.Add(Msg);
     end
     else
     begin
       { System command }
       Com := UpperCase(Trim(Copy(Msg, 2, Pos(':', Msg) -2)));
       Msg := UpperCase(Trim(Copy(Msg, Pos(':', Msg) +1, Length(Msg))));
       if Com = 'CLIENTS' then
         lbClients.Items.CommaText := Msg;
     end;
   end;
 end;

dicho sea de paso no encontre nada por la red para leerme como funcionan estos componentes, el ejemplo usado es el chat de indy 9.0 Por fa alguna ayuda de como solucionar ese bug o si alguien sabe un manuaa para leérmelo un poco. Mil gracias.