Тема письма выводится не по-русски при отправке по Email

Bal

Тема письма выводится не по-русски при отправке отчета по Email.
Изменил кодировку при формировании письма.
begin
HZ_CODE := 'юабцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ│Т';
ANSI_CODE := 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ё';
Result := S;
for i := 1 to Length(Result) do
if Pos(Result, HZ_CODE) > 0 then
Result := ANSI_CODE[Pos(Result, HZ_CODE)]
end;

Теперь в почте все по-русски, однако при выводе на экран выводятся краказябры. Вот если бы FR сам перекодировал тему письма.
Может кто-то уже решил эту проблему?