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