The follow example demonstrates functional equivalents for the PRIMARYLANGID(), SUBLANGID(), and MAKELANGID() macros.

function PRIMARYLANGID(lgid : Word) : LongInt;
begin
  result := lgid and $3FF;
end;
function SUBLANGID(lgid : Word) : LongInt;
begin
  result := lgid shr  0;
end;
function MAKELANGID(sPrimaryLanguage : Word;
                    sSubLanguage : Word) : Word;
begin
  result := (sSubLanguage shl  0) or
             sPrimaryLanguage;
end;