Проблема с кодировкой при отправке письма

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 IdSMTP1->Host = "smtp.yandex.ru"; // Адрес почтового сервера
 IdSMTP1->Port = 25; //Используемый порт
 IdSMTP1->Username = "****"; // Пишем  логин от почты
 IdSMTP1->Password = "****"; // и пароль к нему
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ОтправитьClick(TObject *Sender)
{
 char subject[100];
 IdMessage1->From->Text = Edit1->Text;
 IdMessage1->Recipients->EMailAddresses = Edit2->Text;
 IdMessage1->Subject = Edit3->Text;
 IdMessage1->Body->Text = Memo1->Text;
 //IdMessage1->ContentType = "text/plain; charset=koi8-r";
 
 IdSMTP1->Connect();
 if (IdSMTP1->Connected())
  IdSMTP1->Send(IdMessage1);
 else
  IdSMTP1->Disconnect();
}

IdMessage1->Body->Encoding->Convert();

IdMessage1->ContentType = "text/plain; charset=koi8-r";

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TIdSMTP *IdSMTP = new TIdSMTP(NULL);
TIdMessage *Msg = new TIdMessage(IdSMTP);
  Msg->Subject = WinToWin1251Q(L"Тестовое письмо");  // WinToWin1251Q - самописная
  Msg->ContentTransferEncoding = L"base64";          // вот она, чудо строчка
 
  Msg->From->Name = WinToWin1251Q(L"Тестер");
  Msg->ContentType = L"text/plain; charset=windows-1251";
  Msg->Body->Add(L"Тело сообщения");
...
  IdSMTP->Connect();
  IdSMTP->Send(Msg);
  IdSMTP->Disconnect();
...
}
//---------------------------------------------------------------------------
UnicodeString __fastcall WinToWin1251Q(UnicodeString Str)
{
UnicodeString strTo;
  strTo.sprintf(L"=?windows-1251?Q?");
AnsiString sss = Str;
  for(int i=1; i<=sss.Length(); i++)
  {
byte a = sss[i];
    if (a == ' ') a = '_';
    strTo.cat_printf((a<128) ? L"%c" : L"=%.2X", a);
  }
  strTo.cat_printf(L"?=");
  return strTo;
}

IdMessage1->CharSet = "windows-1251";
IdMessage1->ContentType = "text/plain";
IdMessage1->Encoding = true;
IdMessage1->ContentTransferEncoding = "base64";
 
        IdSMTP1->Username = login->Text; //логин
        IdSMTP1->Password = password->Text; //пароль
        IdMessage1->Body->Text = telo->Text;  //тело сообщения
        IdMessage1->From->Text = login->Text; //откуда шлем
        IdMessage1->Recipients->EMailAddresses = ""; //кому шлем
        IdMessage1->Subject = tema->Text;  //тема сообщения
 
void __fastcall TForm1::IdMessage1InitializeISO(System::WideChar &VHeaderEncoding,
          UnicodeString &VCharSet)
{
VCharSet = "windows-1251";
VHeaderEncoding = 'B';
}

//-----------------------------------------------------------------------
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;
}
//-----------------------------------------------------------------------

IdSMTP1->Host=Edit1->Text;
IdSMTP1->Username=Edit2->Text;
IdSMTP1->Password=Edit3->Text;
IdSMTP1->HeloName="Petrovich";
IdSMTP1->MailAgent="Krutaya Proga";
 
IdMessage1->Clear();
IdMessage1->ContentTransferEncoding = "base64";
IdMessage1->Encoding=true;
 
IdMessage1->Recipients->EMailAddresses= Edit4->Text;    // Адрес - кому
IdMessage1->Subject = WinToWin1251Q(Edit5->Text);                       // Тема письма
IdMessage1->Body->Text=Edit6->Text;                     // Текст
IdMessage1->From->Text = "Sambo";                       // От кого
IdMessage1->Date=Date()-1;
TIdMessageBuilderPlain* MyMessage = new TIdMessageBuilderPlain();
// Пропускаем прикрепление файлов
MyMessage->PlainText->Text=Edit6->Text;
MyMessage->FillMessage(IdMessage1);
 
try {
 IdSMTP1->Connect();
 IdMessage1->ContentType = "text/plain; charset=windows-1251";
 IdMessage1->CharSet = "windows-1251";
 IdMessage1->ContentTransferEncoding = "8BITMIME";
 
 
  IdSMTP1->Send(IdMessage1);
  ShowMessage("Письмо отправлено успешно");
} catch (...) {ShowMessage("пРОБЛЕМА ПРИ ОТПРАВКЕ МЫЛА");}
IdSMTP1->Disconnect(true);
delete MyMessage;

TIdMessageBuilderPlain* MyMessage = new TIdMessageBuilderPlain();

    IdMessage1->Clear();
    IdMessage1->ContentTransferEncoding = "base64";
    IdMessage1->Encoding = mePlainText;
 
    IdMessage1->Recipients->EMailAddresses = "тут_был_адрес@yandex.ru";
    // Адрес - кому
    IdMessage1->Subject = (Edit5->Text); // Тема письма, безо всяких преобразований
    IdMessage1->Body->Text = Edit6->Text; // Текст
    IdMessage1->From->Text = "Sambo"; // От кого
    IdMessage1->Date = Date() - 1;
    TIdMessageBuilderPlain* MyMessage = new TIdMessageBuilderPlain();
    // Пропускаем прикрепление файлов
    MyMessage->PlainText->Text = Edit6->Text;
    MyMessage->FillMessage(IdMessage1);
 
    try
    {
        IdSMTP1->Connect();
        IdMessage1->ContentType = "text/plain; charset=windows-1251";
        IdMessage1->CharSet = "windows-1251";
        IdMessage1->ContentTransferEncoding = "8BITMIME";
 
        IdSMTP1->Send(IdMessage1);
        ShowMessage(L"Письмо отправлено успешно");
    }
    catch (...)
    {
        ShowMessage(L"пРОБЛЕМА ПРИ ОТПРАВКЕ МЫЛА");
    }
    IdSMTP1->Disconnect(true);
    delete MyMessage;