다음과 같이 사용하면 문자열로된 두자리 언어코드값을 반환합니다.

사용자가 단말기 설정에서 언어를 다른언어로 바꿔도 인식 잘 합니다.

uses

   FMX.Platform;

function TForm1.get_LanType : string;

var

   gLan: IFMXLocaleService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService) then
    begin
        gLan := IFMXLocaleService(TPlatformServices.Current.GetPlatformService(IFMXLocaleService));
        result := gLan.GetCurrentLangID;    // en, ko, de, fr, jp .....
    end;
end;