function CodePageToCodePageName(cp: TSystemCodePage): AnsiString;
function CodePageNameToCodePage(const cpname: AnsiString): TSystemCodePage;