//Использование функции
//AMsg типа TIdMessage предварительно инициализированная
 KoiToWin(AMsg.From.Address);
 KoiToWin(AMsg.Subject);

function KoiToWin(Str: string): string;
var
 i, j, index, x1, x2 : Integer;
 sTemp               : String;
begin
 Result := '';

 sTemp := Str;

 x1 := Pos('=?koi8-r?B?', sTemp);

 if x1 = 0 then
   x1 := Pos('=?KOI8-R?B?', sTemp);

 x2 := Pos('?=', sTemp);

 if (x2 - x1 > 0) and (x1 <> 0) and (x2 <> 0) then
 begin
   Str := copy(sTemp, x1 + 11, x2 - (x1 + 11));
   Str := TIdDecoderMIME.DecodeString(Str);

   for i := 1 to Length(Str) do
   begin
     index := -1;
     for j := Low(Win) to High(Win) do
       if Koi[j] = Str[i] then
       begin
         index := j;
         Break;
       end;

     if index = -1 then
       Result := Result + Str[i]
     else
       Result := Result + Win[index];
   end;

   delete(sTemp, x1, x2 - x1 + 2);
   insert(Result, sTemp, x1);
 end;

 Result := sTemp;
end;

var
 Koi: array[0..66] of Char = (
   'T', 'Ё', 'ё', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж',
   'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',
   'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ',
   'Ы', 'Ь', 'Э', 'Ю', 'Я', 'а', 'б', 'в', 'г', 'д',
   'е', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о',
   'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш',
   'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');

 Win: array[0..66] of Char = (
   'ё', 'Ё', 'T', 'ю', 'а', 'б', 'ц', 'д', 'е', 'ф',
   'г', 'х', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п',
   'я', 'р', 'с', 'т', 'у', 'ж', 'в', 'ь', 'ы', 'з',
   'ш', 'э', 'щ', 'ч', 'ъ', 'Ю', 'А', 'Б', 'Ц', 'Д',
   'Е', 'Ф', 'Г', 'Х', 'И', 'Й', 'К', 'Л', 'М', 'Н',
   'О', 'П', 'Я', 'Р', 'С', 'Т', 'У', 'Ж', 'В', 'Ь',
   'Ы', 'З', 'Ш', 'Э', 'Щ', 'Ч', 'Ъ');