通过互联网校对系统时间

  IdTime1.Host:=Edit1.Text;
  Label2.Caption:='网络时间：' DatetimeToStr(IdTime1.DateTime);
  Label1.Caption:='系统时间：' DatetimeToStr(now);