uses idGlobal, idDayTime, IdTime,    function UTCTimeFromInternet_Port13 (const silent:boolean=false) : TDateTime
;
{Get the time from the Internet using the NIST time server time.nist.gov)
and put it in a TDateTime
  Uses Port 13. This port might be blocked by some fire walls}
var idDayTime : TidDayTime ;
    UTCTime : TDateTime ;
begin
  Try
    idDayTime := TidDayTime.Create (NIL);
    Try
      idDayTime.Host := 'time.nist.gov' ;
      Result := UTCSTringToDateTime (idDayTime.DayTimeStr) ;
    Except
      Result := 0 ;
      if not silent then Raise
    end ;
  Finally
    Try
      idDayTime.Disconnect ;
      idDayTime.Free;
    Except
    end ;
  end ;
end ;    function UTCTimeFromInternet_Port37 (const silent:boolean=false) : TDateTime
;
{Get the time from the Internet using the NIST time server time.nist.gov)
and put it in a TDateTime
  Uses Port 37. This port might be blocked by some fire walls}
var idTime : TidTime ;
    UTCTime : TDateTime ;
begin
  Try
    idTime := TidTime.Create (NIL);
    Try
      idTime.Host := 'time.nist.gov' ;
      Result := idTime.DateTime - OffsetFromUTC ;
    Except
      Result := 0 ;
      if not silent then Raise
    end ;
  Finally
    Try
      idTime.Disconnect ;
      idTime.Free;
    Except
    end ;
  end ;
end ;