La novata inutil sigue (problema con el cliente)

[SindyL34]

sorry de nuevo oyep ya lo cheque de nuevo y ya se donde esta el error es en un timer pero no se por que, eh tratado de cambiarlo y obtengo el mismo resultado, el programa se congela cuando llega al tiempo establecido por el timer.

mi pregunta es

es posible recibir mensages sin el timer o sin que se trabe T_T

procedure TForm1.Timer1Timer(Sender: TObject);
var
Msg : String;
begin
if not IdTcpClient1.Connected then // estas dos lineas no las puedo quitar por que no
exit; //corre el programa

Msg := IdTCPClient1.ReadLn; //se lee lo que se recibe
if msg <> '' then
begin
memLines.Lines.Add(Msg);
end;
end;