constructor TOSLanguage.Create; var FLang: array [0..100] of char; begin inherited Create(AOwner); FLangID:=GetSystemDefaultLangID; FLangIDHex:='$'+IntToHex(FLangID, 4); VerLanguageName(FLangID, FLang, 100); FLanguage:=String(FLang); end;