procedure THIPOP3_Parse.Decode;
............................
   begin
     if _Encode = '8bit' then
      Result := Koi8ToWin(Text)
     else if _Encode = 'quoted-printable' then
         Result := Koi8ToWin( quoted_printable(Text) ) 

procedure THIPOP3_Parse.Decode;
.............................
var s,_Content_Type,_FName,_Char:string;
   procedure _Decode(var Result:string);
   var lst:PStrList;
      i:integer;
   begin
     if _Encode = '8bit' then
      Result := (Text) // Исправлено мной Result := Koi8ToWin(Text)
     else if _Encode = 'quoted-printable' then
         Result := ( quoted_printable(Text) ) //Исправлено мной: Result := Koi8ToWin( quoted_printable(Text) )