Skąd wziąć język Windowsa

function GetWindowsLanguage: string; 
var 
  WinLanguage: array [0..50] of char; 
begin 
  VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50); 
  Result := StrPas(WinLanguage); 
end; 

procedure TForm1.Button1Click(Sender: TObject); // procedura wykorzystania  
begin 
  ShowMessage(GetWindowsLanguage); 
end; 

Kod pochodzi ze strony www.swissdelphicenter.ch.