function LANGIDFROMLCID(lcid: LCID): WORD;

TntWindows

This is function TntWindows.LANGIDFROMLCID.