Cambiar Formato Hora de Windows 7

[JerS]

amigos estoy utlizando este procedimiento:

Código Delphi [-]
procedure SetTimeFormat;
var
LCID    :LongInt;
AllOk   :Boolean;
begin
try
  LCID := GetSystemDefaultLCID;
  AllOk := SetLocaleInfo(LCID, LOCALE_STIMEFORMAT, 'H:mm') ;
    if AllOk then
      SendMessage(HWND_TOPMOST, WM_SETTINGCHANGE, 0, 0);
except
end;
end;

pero se queda colgado y no hace el trabajo, si conocen algún otro o ven la falla por favor ayúdenme, estoy mas que seguro que es problema de permisologia con W7