[求助]网上校对时间程序出错（附源码）

procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdTime1.Host:='210.72.145.44';
label3.Caption:=datetimetostr(IdTime1.DateTime);
label4.Caption:=datetimetostr(Now());
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTime1.SyncTime;
end;

end.

[此贴子已经被作者于2007-11-8 15:37:10编辑过]