我连用了5次。程序变得反应有点慢了

Question

with TStringList.Create do try
    Text := IdHTTP1.Get('www.xxx.com');
    if Count > 5 then
    begin
      edit5.Text:= Strings[Count - 10］;
    end;
  finally
    Free;
  end;在timer1的ontimer事件中这个代码被我连续使用了5次，运行时，程序有点反应慢，
怎么解决呢？？

Answer 1

程序反应慢是由于你的主线程被 IdHTTP1.Get 所阻塞, 将此操作封装到子线程中进行就OK了

Answer 2

不光慢了，今天我又加了几个，出现错误了“Socket Error“”Connection rest by peer"
啥原因因呢？？
怎么封装到子线程啊，，这个不会？

Answer 3

封到子线程里，还能用ontimer里，第隔几秒就调用一次吗，