Сервер Времени

[лёля]

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdTime1.Timeout:=8000;
 IdTime1.Port:=10060;
IdTime1.Host := 'ntp.ix.ru';

 IdTime1.Connect;
 if IdTime1.Connected then
 begin
    CurrTime := IdTime1.DateTime;
 IdTime1.Disconnect;
 IdTime1.Free;
 DecodeTime(CurrTime, HH, NN, SS, MS);
  label1.Text:=datetostr(CurrTime);
 end;

end;

end.

не работает выдает такую ошибку:

[Кривяков Виталий]

Привет!

Недоступен твой сервер времени. Вот просто пример

procedure TForm1.Button1Click(Sender: TObject);
var
  CurrTime : TDateTime;
begin
  IdTime1.Host := 'time.nist.gov';
  CurrTime := IdTime1.DateTime;
  Label1.Text:=DateTimeToStr(CurrTime);
end;

 

[лёля]

спасибо