Formato fecha servidor

[shoulder]

Hola error es 6/2 not value date o ':' not integer, fui siguiendo estos dias el servicio y lo que no entiendo es durante varios dias funciona y de repente se frena con ese error como marque en el post superior o ahora en las lineas que dejo mas abajo. Pense sera un error de algo nuevo que lee y no es asi porque si abro el servicio de vuelta corre normalmente es como que se le fuera el seteo de la fecha o de la hora del now en algun momento de las pasadas del while. El servicio lo que hace mediante un while a las 10:50 actualiza datos en la BD
Este es el error que detecte tambien en ':' siempre es el now que no le gusta.....en algun momento de los dias trae otro valor a la variable string hora y por consiguiente se frena en la variable integer Impar.. o en el post anterior cuando paso el valor a zquery.

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

if copy(datetimetostr(now()),13,1) = ':' then
   hora := '0'+  copy(datetimetostr(now()),12,4);
impar := strtoint(copy(hora,6,1));