Smtp почта, проблемы с кодировкой

IdSMTP1.Disconnect;                                          // Отключаем Smtp Для редактирования его свойств
  IdSocksInfo1.Authentication:=saNoAuthentication;             // Выставляем значение - Без аутентификации
  IdSocksInfo1.Port:=465;                                     // Порт по которому мы будем связываться
  IdSocksInfo1.Version:=svNoSocks;                             // ...
 
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvTLSv1;   // Метод шифрования
  IdMessage1.Clear;                                            // Очищаем письмо
  IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;           // устанавливаем SSL Handler для IdPOP3 SMTP
  IdSMTP1.UseTLS := utUseImplicitTLS;                          // Выставляем значение - использовать неявный TSL
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Метод шифрования
  IdSMTP1.Host := 'smtp.mail.ru';                            // Хост к которому мы подключимся
  IdSMTP1.Port := 465;                                        // Порт по которому мы будем связываться
  IdSMTP1.AuthType := atDefault;                              // Тип аутентификации: Login/Password
  IdSMTP1.UserName := edit1.Text;                             // Логин от нашей почты
  IdSMTP1.Password := edit2.Text;                           // Пароль от нашей почты
  IdMessage1.From.Name :='Менеджер';                           // Адресат Имя или подпись
  IdMessage1.From.Address := edit1.text;                      // Адресат Email
  IdMessage1.Body.Text:='Здравствуйте это ваш отчет';                                // Текст письма
  IdMessage1.Subject:='База данных';                                  // Тема которая будет отображаться сверху письма
  idMessage1.Recipients.EMailAddresses:=edit3.text;  // Адресант Email
 
  IdSMTP1.Connect;                                             // Пытаемся подключиться...
  if IdSMTP1.Connected=True then  begin IdSMTP1.Send(IdMessage1);
  showmessage('Сообщения отправлено'); end else ShowMessage('Сообщение не было отправлено!');
  IdSMTP1.Disconnect;                                          // По завершению мы отключаемся
    end;

const
  WinR: Array[0..66] of Char = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и',
    'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т',
    'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь',
    'э', 'ю', 'я', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё',
    'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П',
    'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ',
    'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я', '№');
  KoiR: Array[0..66] of Char = ('Б', 'В', 'Ч', 'З', 'Д', 'Е', 'Ј', 'Ц', 'Ъ', 'Й',
    'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'Т', 'У', 'Ф',
    'Х', 'Ж', 'И', 'Г' ,'Ю', 'Ы', 'Э', 'Я', 'Щ', 'Ш',
    'Ь', 'А', 'С', 'б', 'в', 'ч', 'з', 'д', 'е', 'і',
    'ц', 'ъ', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р',
    'т', 'у', 'ф', 'х', 'ж', 'и', 'г', 'ю', 'ы', 'э',
    'я', 'щ', 'ш', 'ь', 'а', 'с', '?');
//Из Cyrillic Windows-1251 в Cyrillic (KOI8-R)
function WinRToKoiR (aStr: String): String;
var
  i, j, Index: Integer;
begin
   Result := EmptyStr;
  for i := 1 to Length(aStr) do
   begin
    Index := -1;
     for j := Low(WinR) to High(WinR) do
      if WinR[j] = aStr[i] then
       begin
        Index := j;
        Break;
       end;
      if Index = -1 then
       Result := Result + aStr[i]
      else
       Result := Result + KoiR[Index];
   end;
end;

procedure TForm2.IdSMTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
 
end;
 
procedure TForm2.IdSMTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 
end;