Время и дата из интернета

IdSNTP1.Host := 'time.windows.com';
IdSNTP1.Port := 123;
IdSNTP1.ReceiveTimeout := 5000;
IdSNTP1.SyncTime;
ShowMessage(DateTimeToStr(IdSNTP1.DateTime));

var
 iT: tIdTime;
 CurrTime: TDateTime;
 st: TSystemTime;
 YY,MM,DD,HH,NN,SS,MS: Word;
begin
 iT := tIdTime.Create(nil);
 iT.Host := "ntps1-0.uni-erlangen.de";
 CurrTime := iT.DateTime;
 iT.Free;
 GetLocalTime(st);
 DecodeDate(CurrTime,YY,MM,DD);
 DecodeTime(CurrTime,HH,NN,SS,MS);
 st.wYear := YY;
 st.wMonth := MM;
 st.wDay := DD;
 st.wHour := HH;
 st.wMinute := NN;
 st.wSecond := SS;
 st.wMilliseconds := MS;
 SetLocalTime(st);
end;

1.
buf := IdHTTP1.Get([url]http://***********/script/time.php?zapros=784');[/url]

Mdate := Copy(buf, Pos('!', buf) + 1, 10);
Mtime := Copy(buf, Pos('%', buf) + 1, 8);

var S : TSocket;
    Remote : sockaddr_in;
    WD : WSAData;
    Reply : AnsiString;
 
begin
 WSAStartup(02,WD);
 S:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
 Remote.sin_family:=AF_INET;
 Remote.sin_port:=ntohs(13);
 
Remote.sin_addr:=TInAddr(Pointer((gethostbyname('time.in.ua'))^.h_addr_list^)^);
// Remote.sin_addr:=TInAddr(Pointer((gethostbyname('time.nist.gov'))^.h_addr_list^)^);
 connect(s,Remote,SizeOf(sockaddr_in));
 SetLength(Reply,$100);
 SetLength(Reply,recv(s,Reply[1],$100,0));
 ShowMessage(Reply);
 
end;