This function translates based on the specified character set, code page, or font signature value, setting all members of the destination structure to appropriate values.

function TranslateCharsetInfo(lpSrc: PDWORD; var lpCs: TCharsetInfo; dwFlags: DWORD): BOOL; stdcall;