Кодировка текста сообщения и темы письма

// Это тема сообщения
IdMessage1.Subject:=edit5.text;
 
// Это текст сообщения
IdMessage1.Body.Text:=Memo2.Text;

idMessage1.CharSet:='UTF-8';

IdMessage1.Body.Text:=UTF8Encode(IdMessage1.Body.Text);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdAntiFreezeBase, IdAntiFreeze,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, StrUtils, IdSMTP;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    IdSMTP1: TIdSMTP;
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    Memo1: TMemo;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
var
  S : string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
idSmtp1.Host:=edit3.text;
IdSmtp1.Port:=25;
IdSmtp1.Username:=edit1.text;
IdSmtp1.Password:=edit2.text;
IdMessage1.Body.Text:=UTF8Encode(IdMessage1.Body.Text);
IdMessage1.Body.Text:=Memo2.Text;
IdMessage1.From.Text:=edit6.text;
IdMessage1.Recipients.EMailAddresses:=Ansireplacestr(S,#13#10,',');
IdMessage1.Subject:=edit5.text;
 
IdSmtp1.Connect();
if IdSmtp1.Connected=true then
IdSmtp1.Send(idmessage1);
IdSmtp1.Disconnect;
end;
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
S:=Memo1.Text;
end;
 
end.

idMessage1.CharSet:='UTF-8';
IdMessage1.Body.Text:=Memo2.Text;
IdMessage1.Body.Text:=UTF8Encode(IdMessage1.Body.Text);

[quote="Streletz;6173490"]IdMessage1.Body.Text:=Memo2.Text;
IdMessage1.Body.Text:=UTF8Encode(IdMessage1.Body.Text);[/quote]

idSmtp1.Host:=smtpserv;
IdSmtp1.Port:=25;
IdSmtp1.Username:=логин;
IdSmtp1.Password:=пароль;
IdMessage1.Body.Text:=сообщение;
IdMessage1.From.Text:=email отправителя;
IdMessage1.Recipients.EMailAddresses:='email';
IdMessage1.Subject:=тема сообщения;

idSmtp1.Host:=edit3.text;
IdSmtp1.Port:=25;
IdSmtp1.Username:=edit1.text;
IdSmtp1.Password:=edit2.text;
idMessage1.CharSet:='UTF-8';
IdMessage1.Body.Text:=Memo2.Text;
IdMessage1.Body.Text:=UTF8Encode(IdMessage1.Body.Text);
IdMessage1.From.Text:=edit6.text;
IdMessage1.Recipients.EMailAddresses:=Ansireplacestr(S,#13#10,',');
IdMessage1.Subject:=edit5.text;
 
IdSmtp1.Connect();
if IdSmtp1.Connected=true then
IdSmtp1.Send(idmessage1);
IdSmtp1.Disconnect;