[求助]网上校对时间程序出错（附源码）
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编辑过]
