Здравствуйте, aDelphi, Вы писали:

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

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

По всей видимости надо поставить апдейт на Delphi. Этот пример из Quality Central на borland.com и он отмечен как "закрыт"