Спасибо за ответ.
Только вот выдается ошибка:
"A call to an OS function failed"
при выполнении строки
Win32Check(TranslateCharsetInfo(lpSrc, lpCs, TCI_SRCCODEPAGE));

Может быть подскажешь в чем проблема?

var
  lpSrc: DWORD;
  lpCs: TCharsetInfo;
  charset: TFontCharset;
begin
  lpSrc := 1251; // или другие
  Win32Check(TranslateCharsetInfo(lpSrc, lpCs, TCI_SRCCODEPAGE));
  charset := lpCs.ciCharset;