参看了一些网上的文章自己写了一个同步时间的函数,贴出来与大家一起分享~~~ 代码如下: procedure Tmainfr.Button1Click(Sender: TObject); // 同步服务器时间 var