Formato fecha servidor

[shoulder]

Hola es un programa que corre como servicio en el servidor.
Funciona bien pero de repente da error y me doy cuenta si leo la fecha el formato en el servidor no se porque se cambio de 22/06 a 22/6.Para solucionar cuando hago un now pense que con el shortdateformat lo solucionaba pero no es asi. es decir mientras en el formato de fecha de windows se lea 22/06 funciona, pero si cambian el formato de windows el setting (no se porque a veces se cambia) ahi se corta.



Este es el codigo.

Código Delphi [-]


                        ShortDateFormat := 'dd/mm/yyyy';

                        zquery1.Active;
                        zquery1.close;
                        zquery1.SQL.Clear;
                        zquery1.sql.add ('select fecha from  feriado ');
                        zquery1.sql.add ('where fecha = :dia ');
                        zquery1.Params.ParamByName('dia').Value := now;
                        zquery1.active := true;