Indy. Отправка сообщений на email, на русском.

[Человек_Борща]

Доброго времени!

Пытаюсь отправить сообщение на русском языке:

      // SMTP Auth
      if (AM.AccType = uaRandom) then
        Acc := AM.GetRandomAccaunt
      else
        Acc := AM.GetCheckedAccaunt;

      sFromMail := MB.FromEmail;
      sFromName := MB.FromName;

      if (sFromMail = EmptyStr) then
        sFromMail := Acc.Login;

      if (sFromName = EmptyStr) then
        sFromName := Acc.Login;

      SMTP.Host := Acc.Server;
      SMTP.Port := Acc.Port;
      SMTP.Username := Acc.Login;
      SMTP.Password := Acc.Password;
      try
        SMTP.Connect;
      except
        {
          Смена аккаунта, сообщение о не рабочем аккаунте.
        }
      end;
      // Check succsessfull connect
      if SMTP.Connected then
      begin
        msg := TIdMessage.Create;
        try
          msg.OnInitializeISO := TDummyEncode.SetCharSet;
          msg.Date := Now;
          msg.Subject := String(sTitle);
          msg.Body.Text := String(sText);
          msg.Recipients.EMailAddresses := (MB[i].ToEmail);
          msg.Encoding := meMIME;
          if MB.IsHTMLText then
          begin
           // msg.CharSet := 'koi8-r';
            msg.ContentType := 'text/html';
          end
          else
          begin
           // msg.CharSet := 'koi8-r';
            msg.ContentType := 'text/plain';
          end;

          try
            SMTP.Send(msg);
            MB[i].Status := msSent;
          except
            MB[i].Status := msNotSent;
          end;

          {
            Вызов события Отправлено/Не отправлено, обновление счетчиков
          }
        finally
          FreeAndNil(msg);
          SMTP.Disconnect;
        end;
      end;
    end;
  end;

end;

{ TDummyEncode }

class procedure TDummyEncode.SetCharSet(var VHeaderEncoding: Char;
  var VCharSet: string);
begin
  VCharSet := IdCharsetNames[idcs_UTF_8];
end;

Вроде и работает, но нет.. не работает!

Самое смешное, что русский текст в теме письма отображается правильно, а вот текст письма на русском языке, отображается как ?????.

На что грешить?

[Slym]

вместо msg.Body.Text := String(sText);

TextPart := TIdText.Create(msg.MessageParts);
TextPart.Body.Text := String(sText);
TextPart.ContentType := 'text/html;charset=windows-1251';