Formato fecha servidor

[shoulder]

Hola extraigo asi porque, si la cifra del ultimo minuto es impar hago una cosa si es par otra. Como podria ser mas claro me doy cuenta que el servicio funciona pero al pasar los dias yo tampoco entiendo porque es como que la variable now pierde su seteo por eso me aparecen los error 6/2 no es valid date (tendria que ser.. 06/2020 o la hora en blanco en el integer. (el campo fecha del post anterior si es date).
Gracias

Código Delphi [-]
ShortDateFormat := 'dd/mm/yyyy';
hora := copy(datetimetostr(now()),11,6);
impar := strtoint(copy(hora,6,1));