[PepCat]

También hay la opción de obtener la fecha y hora oficial de Sede Electrónica de la Fábrica Nacional de Moneda y Timbre - Real Casa de la Moneda

https://www.sede.fnmt.gob.es/delegate/fechaoficial?nocache

que devuelve la fecha en JSON:

{
	"millis": 1644571217305
}

y se puede convertir en TDateTime con

Código Delphi [-]

uses System.DateUtils;

function jsDateToDelphiDate(millis: int64): TDateTime;
begin
    var UnixSeconds: Integer := Round(millis / MSecsPerSec);
    Result := UnixToDateTime(UnixSeconds, False);
end;