TSNTPSend.EncodeTs
TSNTPSend

procedure EncodeTs(dt: TDateTime; Var Nsec, Nfrac: Longint);

Unit
sntpsend

Description
Decode TDateTime type to 128 bit timestamp used in NTP packet.