Определения языка операционной системы

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i:= Languages.IndexOf(SysLocale.DefaultLCID);
  ShowMessage(Languages.Name[i]);
end;

Класс TLanguages также содержит другую информацию в свойствах:

• Count - количество поддерживаемых системой локалей

• Ext - стандартное трехбуквенное обозначение для локали. Например, код Ext[IndexOf($0409)] вернет строковое значение ENU. Свойство - массив, начинающийся с нуля.

• Name - стандартное для Windows имя локали. Например, код Name[IndexOf($0409)] вернет строковое значение English (United States). Свойство - массив, начинающийся с нуля.