TIdIMAP4 и кодировки

String WinToUnicode(const String St)
{
 String Result="";
 for (int i = 1; i <= St.Length(); i++)
 {
    if (int(St[i])>= 0x00C0 && int(St[i])<= 0x00FF)
        Result += wchar_t(int(St[i])+0x350);
    else Result += St[i];
 }
 return Result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AcRunExecute(TObject *Sender)
{
Memo1->Clear();
 
IdIMAP41->Port= 143;
IdIMAP41->AuthType= iatUserPass;
 
IdIMAP41->Host= "imap.yandex.ua";
IdIMAP41->Username= "*********";
IdIMAP41->Password= "*********";
 
//IdMessage1->NoDecode = true;
//IdIMAP41->IOHandler= TIdIOHandler::MakeDefaultIOHandler(IdIMAP41);
//IdIMAP41->IOHandler->DefStringEncoding= en8Bit;
 
IdIMAP41->Connect(1000);
  // ищим письма-уведомления от cyberforum.ru
IdIMAP41->SelectMailBox("INBOX");
TIdIMAP4SearchRec SR[1];
SR[0].SearchKey= skFrom;
SR[0].Text="admin@cyberforum.ru";
 
if( IdIMAP41->SearchMailBox(SR,1) )
    for (int i=0; i<IdIMAP41->MailBox->SearchResult.Length; i++)
        {
            IdMessage1->Clear();
            IdIMAP41->Retrieve(IdIMAP41->MailBox->SearchResult[i],IdMessage1);
            Memo1->Lines->Add("\t------\t"+String(i)+"\t--------");
 
            Memo1->Lines->Add(IdMessage1->Subject);
            Memo1->Lines->Add(IdMessage1->Body->Text);
        }
 
IdIMAP41->Disconnect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Text= WinToUnicode(Memo1->Text); // Декодируем
}
//---------------------------------------------------------------------------

IdIMAP41->IOHandler->DefStringEncoding= en8Bit;