Почта в Delphi

[Serge_Bliznykov]

точно. тему нужно кодировать.
тема письма (так же, как и прочие заголовки письма - включая FROM: , TO: )
должна быть закодирована в 7битную кодировку.
Это идёт ещё с тех времён, когда никакой кодировки, кроме английской, не допускалось. и именно оттуда, кстати, возникли кодировки UUE/BASE64, используемые в MIME.

Как закодировать заголовки?

попробуйте погуглить.
вот, например, тут - http://www.delphifaq.ru/chastye-vopr...sage-indy.html
или тут - http://www.sql.ru/forum/893581/tidin...-ego-parametry

можно подсмотреть такой код:

uses
  Classes, Sysutils, IdCoderMIME, IdSMTP, IdMessage;

// ...

  function EncodeSubj(instr:string):string;
  var
     IdEncoderMIME: TIdEncoderMIME;
  begin
    IdEncoderMIME := TIdEncoderMIME.Create(nil);
    try
      Result := '=?'+'Windows-1251'+'?B?'+IdEncoderMIME.Encode(instr)+'?=';
    finally
      IdEncoderMIME.Free;
    end;
  end;

......

  IdMessage1.Subject := EncodeSubj( Edit_Subject.Text );

[Антон Иванчин]

Благодарю! заработал!

[Антон Иванчин]

Будьте любезны подскажите ещё один момент:
Прикрепляю файл к письму и отправляю на свою почту на Mail. В названии файла присутствуют русские буквы

C:\Клиенты\ТестОрг ИНН 123456789\Калькуляция\Калькуляция № 60595 08-06-2016 Печать 08-06-2016.doc

В полученном сообщении на Mail вместо них вопросы

����������� � 60595 08-06-2016 ������ 08-06-2016.doc

Как добиться вывода русских букв?