Retardo en configuración del registro

[MAXIUM]

Al grano dijo el gallo.

Miren, mi programa debe mostrar la fecha en un formato determinado, para ello al momento de arrancar envio un código al registro para que todo el sistema se adapte a el.

Imaginemos que por defecto se encuentra en formato dd.mm.aa (31.1.8) y yo lo deseo en dd/MM/aaa (31/01/2008)

Entonces modifico el registro:

Código Delphi [-]
   Registro:= Tregistry.Create;
   Registro.RootKey:= HKEY_CURRENT_USER;
   Registro.OpenKey('\Control Panel\International', True);
   Registro.WriteString('sDate', '/');
   Registro.WriteString('sShortDate', 'dd/MM/yyyy');
   Registro.CloseKey;
   Registro.Free;

Todo OK, todo el sistema a cambiado el formato, eso es apreciable mirando el listado de archivos en el explorador.

A continuación leo la fecha actual y la cargo en un Label

Código Delphi [-]
Label1:= DateToStr(Date);

Pero el Label me arroja 31.1.8 recordar que este código arranca justo después del que modifica el registro.

Si arranco el programa por segunda vez ya no hay problemas, pero esa no es la idea.

Consultas, soluciones, estoy online