Русский текст в теле письма

[sapogan]

Здравствуйте.
У меня такая проблема - я получаю письмо с сервера в свою программу, в компонент IdMessage. Потом из IdMessage.Body добавляю строки в Memo. Вместо нормального русского текста там отображаются закарючки. Английские буквы отображаются без проблем. Искал на форуме решение этой проблемы, но так и не нашел. Судя по всему, мое письмо в кодировке UTF-8 (при такой кодировке на mail.ru письмо отображается нормально), а у меня в программе письмо в кодировке win, и вот что отображается:

Благодарим Вас за регистрацию на сайте
ОБЩЕСТВЕННО-ГОСУДАРСТВЕННАЯ Р*КСПЕРТР?Р—Рђ
УЧЕБНР?РљРћР’. Р’С‹ можете сейчас войти РЅР°
http://fsu-expert.ru/user используя следующие
учетные данные:

Подскажите функцию, как узнать кодировку, которая в письме, и вывести письмо в этой кодировке в программе?

[psycho-coder]

function Utf8ToAnsi(const S: UTF8String): string;

[sapogan]

Сообщение от psycho-coder

function Utf8ToAnsi(const S: UTF8String): string;

без результата

[Evgeniy26]

Воспользуйтесь поиском в разделе "Работа с сетью в Delphi", там это уже было. Вот например: http://www.programmersforum.ru/showt...ight=IdMessage

[sapogan]

Сообщение от Evgeniy26

Воспользуйтесь поиском в разделе "Работа с сетью в Delphi", там это уже было. Вот например: http://www.programmersforum.ru/showt...ight=IdMessage

я искал, но ничего не нашел для решения моей проблемы.
По этой ссылке проблема с кодировкой при отправке, а мне надо поменять кодировку в полученном письме.

[Evgeniy26]

http://www.programmersforum.ru/archi...p/t-15864.html

[sapogan]

Сообщение от Evgeniy26

http://www.programmersforum.ru/archi...p/t-15864.html

Я читал и эту тему, и там тоже нет решени. Как заголовок письма перевести на русский я еще раньше нашел. А как тело письма перекодировать ПРИ ПОЛУЧЕНИИ не знаю, и там не нашел.

[_Dmitry]

Смотрите ещё раз пост #2. Почему же "без результата"?
Функция работает для строк не длиннее 255 символов.

[sapogan]

Сообщение от _Dmitry

Смотрите ещё раз пост #2. Почему же "без результата"?
Функция работает для строк не длиннее 255 символов.

попробовал, символов меньше 255, но не получается все равно.
у меня Delphi 7