узнать UTC-время по протоколу RFC-868

[3D Hunter]

День добрый. Прошастал гугл, ничего толкового, кроме описания протокола RFC-868, не нашел. Известен порт 37, протокол работает по TCP.
Протокол: http://www.faqs.org/rfcs/rfc868.html

Пробую так:

  try
    LSock:=TTCPBlockSocket.Create;
    LSock.Connect('www.time.nist.gov','37');
    if LSock.LastError<>0 then
    begin
      ShowMessage('connection error');
      Exit;
    end;
    c:=LSock.RecvInteger(1000);
    if LSock.LastError<>0 then
    begin
      ShowMessage('reciveing error');
      Exit;
    end;
    Caption:=IntToStr(c);
  finally
    FreeAndNil(LSock);
  end;

Вываливается уже на первом мессаджбоксе "connection error". Подскажите, как корректно получать время с таких серверов? Если можно, пример.

[3D Hunter]

Сам ответил на свой вопрос. Как всегда, Synapse все решил давно за нас. Тема закрыта.