function GetCodePageA(var hKL: Pointer; out uCodePage: SYSUINT): HResult;

This is GetCodePageA, a member of class TCActiveIMM.