Código Delphi [-]
unit Unit2;

interface

uses
  System.SysUtils, System.DateUtils, IdHTTP, IdSSLOpenSSL, System.JSON;

function LeeFechaHoraInternet: string;

implementation

function LeeFechaHoraInternet: string;
var
  Http: TIdHTTP;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Respuesta: string;
  JsonRespuesta: TJSONObject;
  UnixTicks: Int64;
  FechaHora: TDateTime;
begin
  Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', Now); // Formato inicial por defecto
  Http := TIdHTTP.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    Http.IOHandler := SSLHandler;
    Http.Request.Accept := 'application/json';
    Http.Request.UserAgent := 'Mozilla/5.0 (compatible; Delphi)';
    try
      // Realiza la solicitud a la API
      Respuesta := Http.Get('https://www2.roa.es/cgi-bin/horautc');

      // Si la respuesta es un número de ticks Unix, conviértelo
      UnixTicks := StrToInt64(Trim(Respuesta)); // Ajusta el formato si la API devuelve algo diferente
      FechaHora := UnixToDateTime(UnixTicks div 1000); // Divide entre 1000 para convertir milisegundos a segundos
      FechaHora := TTimeZone.Local.ToLocalTime(FechaHora);
      Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', FechaHora);
    except
      on E: Exception do
        // En caso de error, retorna la hora local
        Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', Now);
    end;
  finally
    Http.Free;
    SSLHandler.Free;
  end;
end;
end.

Código Delphi [-]
unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdSNTP, IdBaseComponent, IdComponent,
  IdUDPBase, IdUDPClient, IdTimeUDP, Vcl.StdCtrls;

type
  TForm5 = class(TForm)
    btnRespuesta: TButton;
    edProtocoloSNTP: TEdit;
    edHoraPTime: TEdit;
    procedure btnRespuestaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function obtenerFechaHoraProtocoloTiempo( server: string; sincronizarHora: Boolean = False ): TDateTime;
    function obtenerFechaHoraProtocoloSNTP( server: string; sincronizarHora: Boolean = False ): TDateTime;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.btnRespuestaClick(Sender: TObject);
begin
  // Pedimos hora al servidor y sincronizamos protocolo de Tiempo
  edHoraPTime.Text := DateTimeToStr( obtenerFechaHoraProtocoloTiempo( 'hora.roa.es',  True ) );
  // Pedimos hora al servidor y no sincronixamos hora protocolo SNTP
  edProtocoloSNTP.Text := DateTimeToStr( obtenerFechaHoraProtocoloSNTP( 'hora.roa.es' ) );
end;

function TForm5.obtenerFechaHoraProtocoloSNTP(server: string;  sincronizarHora: Boolean ): TDateTime;
var
  serverSNTP: TIdSNTP;
begin

  serverSNTP := TIdSNTP.Create( Self );
  serverSNTP.Host := server;
  Result := serverSNTP.DateTime;
  if ( sincronizarHora ) then
    serverSNTP.SyncTime;
 
  serverSNTP.Free;

end;

function TForm5.obtenerFechaHoraProtocoloTiempo(server: string;  sincronizarHora: Boolean  ): TDateTime;
var
  serverITimeUDP: TIdTimeUDP;
begin

  serverITimeUDP := TIdTimeUDP.Create( Self );
  serverITimeUDP.Host := server;
  Result:= serverITimeUDP.DateTime;
  if ( sincronizarHora ) then
    serverITimeUDP.SyncTime;

 serverITimeUDP.Free

end;

end.

Código Delphi [-]
function TPPRUEBAS.LeerFechaHoraInternet(UTC: Integer): string;
var
   Https: TIdHTTP;
   SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
   Respuesta: string;
   UnixTicks: Int64;
   FechaHora: TDateTime;
begin
     Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', Now); // Formato inicial por defecto
     try
        SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
        SSLHandler.SSLOptions.SSLVersions := [sslvTLSv1_2];  // TLS 1.2 es compatible desde Windows 7 SP1 y Server 2008 R2 SP1, y aún no ha sido descatalogado
        SSLHandler.SSLOptions.Mode := sslmClient;
        Https := TIdHTTP.Create(nil);
        Https.IOHandler := SSLHandler;
        Https.Request.Accept := 'text/html';
        Https.Request.UserAgent := 'Mozilla/5.0 (compatible; Delphi)';
        Https.ConnectTimeout := 5000;  // Máximo 5 segundos para establecer la conexión con el servidor
        Https.ReadTimeout := 5000;  // Máximo 5 segundos para obtener la respuesta
        try
           Respuesta := Https.Get('https://www2.roa.es/cgi-bin/horautc');  // Realiza la solicitud a la API del ROA
           UnixTicks := StrToInt64(Trim(Respuesta));  // Si la respuesta viene en formato Unix (ajusta el formato si la API devuelve algo diferente)
           FechaHora := UnixToDateTime(UnixTicks div 1000);  // Divide entre 1000 para convertir milisegundos a segundos
           FechaHora := IncHour(FechaHora, UTC);  // Adaptarlo al huso horario seleccionado en el parámetro UTC: 1 = UTC+1 (Península y Baleares), 0 = UTC+0 (Canarias), etc
           Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', FechaHora);  // Formatear la fecha-hora en el formato aceptado por Veri*Factu
           Consola.Lines.Add('Fecha-hora de internet sincronizada correctamente.');
        except
              on E: Exception do
              begin
                   // En caso de error, retorna la hora local y avisa de ello en la consola
                   Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', Now);
                   Consola.Lines.Add('No se pudo sincronizar la fecha-hora de internet. Se muestra la fecha-hora del equipo.');
              end;
        end;
     finally
            If Assigned(Https) Then Https.Free;
            If Assigned(SSLHandler) Then SSLHandler.Free;
     end;
end;

Código Delphi [-]
RESTClient.Authenticator := nil;
RESTClient.BaseURL := 'https://www2.roa.es/cgi-bin/';
RESTClient.ContentType := 'text/html; charset=UTF-8';
Request.Resource := 'horautc';
Request.Method := TRESTRequestMethod.rmGET;
Try
   Request.Execute;
Except
   on E: Exception do
   Begin
    Consola.Lines.Add('Error en la petición "' + Request.Resource + '": ' + E.ClassName + ' - ' + E.Message);
    Result := FALSE;
    EXIT;
   End;
End;

Código Delphi [-]
function TPPRUEBAS.LeerFechaHoraInternet(UTC: Integer): string;
var
   UnixTicks: Int64;
   FechaHora: TDateTime;
   HttpClient: TNetHTTPClient;
   HttpResponse: IHTTPResponse;
begin
     Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', Now); // Formato inicial por defecto
     Try
        HttpClient := TNetHTTPClient.Create(nil);
        Try
           // Ejecutar la solicitud
           HttpResponse := HttpClient.Get('https://www2.roa.es/cgi-bin/horautc');  // Realizar la solicitud a la API del ROA
           If HttpResponse.StatusCode = 200 Then
           Begin
                UnixTicks := StrToInt64(Trim(HttpResponse.ContentAsString));  // Si la respuesta viene en formato Unix (ajusta el formato si la API devuelve algo diferente)
                FechaHora := UnixToDateTime(UnixTicks div 1000);  // Divide entre 1000 para convertir milisegundos a segundos
                FechaHora := IncHour(FechaHora, UTC);  // Adaptarlo al huso horario indicado en el parámetro UTC: 1 = UTC+1 (Península y Baleares), 0 = UTC+0 (Canarias), etc
                Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', FechaHora);  // Formatear la fecha-hora en el formato aceptado por Veri*Factu
                Consola.Lines.Add('Fecha-hora de internet sincronizada correctamente.');
           End
           Else
               Consola.Lines.Add('Error: ' + HttpResponse.StatusCode.ToString + ' ' + HttpResponse.StatusText);
        Except
              on E: Exception do
              Begin
                   // En caso de error, retorna la hora local y avisa de ello en la consola
                   Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"', Now);
                   Consola.Lines.Add('No se pudo sincronizar la fecha-hora de internet. Se muestra la fecha-hora del equipo.');
              End;
        End;
     Finally
            If Assigned(HttpClient) Then HttpClient.Free;
     End;
end;