Algo más o menos como esto:
Código Delphi
[-]var
t0, t1: TDateTime;
respuesta: string;
horaServidor: TDateTime;
horaLocalAprox: TDateTime;
diferencia: Double;
begin
t0 := Now;
respuesta := NetHTTPClient1.Get('https://intitec.com/debug/getahora.php').ContentAsString;
t1 := Now;
horaServidor := StrToDateTime(respuesta);
horaLocalAprox := (t0 + t1) / 2;
diferencia := (horaServidor - horaLocalAprox) * 86400;
if Abs(diferencia) > 60 then
ShowMessage('Hora manipulada');
end;