Как узнать что используется 24 часовой формат времени

[lafut]

Запишу чтобы не забыть. Понадобилось тут узнать как настроено отображение времени у пользователя чтобы нормально работать с  12 часовыми настройками. Полазил по интернету, везде один и тот же скопированный пример, который к тому же не работает. Так что сохраню работающий вариант.

function Is24HourTimeFormat: Boolean;
var
  DefaultLCID: LCID;
begin
  DefaultLCID := GetUserDefaultLCID; //именно так, системный может отличатся от установленной у пользователя
  Result := pos('H', GetLocaleStr(DefaultLCID, LOCALE_STIMEFORMAT, '0')) > 0;
end;