[NumLock]

завести 2 массива charset[]: String и codepage[]: Integer и через

Код:

function AnsiIndexText(const AText: string; const AValues: array of string): Integer;

получать индекс charset и по этому индексу из массива codepage[]: Integer получить codepage.