function GetSystemDefaultUILanguage : LANGID; stdcall; external kernel32 name 'GetSystemDefaultUILanguage';

function GetUserCountry : string;
var
  l                 : LANGID;
begin
  l := GetSystemDefaultUILanguage;
  Result := GetLocaleStr(l, LOCALE_SISO3166CTRYNAME, 'US');
end;