[BCB6]TIdMessage et mail au format HTML

Bonjour tout le monde,
Je suis en train de peaufiné un peu mon code d'envoi d'email.
Pour ce faire j'ai, au départ, fais un texte que j'ai envoyer avec la IdSMTP et IdMessage. J'ai pu constaté deux choses:

Les carractères spéciaux, ne s'affichent pas correctement, dans le mail à la réception.
Je n'ai pas trouvé de code de formatage en HTML pour un mail envoyer ainsi!

A partir de la, je me pose deux interrogations:

Peut t on me dire ce qui faut que je face avec le code ci-dessous pour envoyer un mail avec des caractères spéciaux?
peut t on me donné la démarche nécessaire pour réaliser un mail au format HTMl en utilisant le code ci dessous ?

Code de base:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonEnvoyer1Click(TObject *Sender)
{
        AnsiString TextMail;
 
        TextMail = "Bonjour,\r";
        TextMail += "Voici un email délivré automatiquement par un projet automatique";
 
        Memo1->Lines->Add("-------------------------------------------------------------------------------------------------------------------------");
        Memo1->Lines->Add(TextMail);
 
 
 
 
        if(IdSMTP1->Connected()) { IdSMTP1->Disconnect(); }
        if(!IdSMTP1->Connected())
        {
                IdSMTP1->Host = "smtp.wanadoo.fr";
                IdSMTP1->Port = 25;
                IdSMTP1->UserId = "blabla";
                IdSMTP1->Password = "motdepasse";
 
                if((IdSMTP1->UserId.Trim().Length() == 0) && (IdSMTP1->Password.Trim().Length() == 0))
                {
                        IdSMTP1->AuthenticationType = atNone;
                }
                else
                {
                        IdSMTP1->AuthenticationType = atLogin;
                }
 
                IdSMTP1->Connect();
        }
 
 
 
 
        if(Form1->IdSMTP1->Authenticate())
        {
                IdMessage1->From->Address = "logiciel@wanadoo.fr";
                IdMessage1->From->Name = "Logiciel";
                IdMessage1->ReplyTo->EMailAddresses = "logiciel@wanadoo.fr";
 
                IdMessage1->Recipients->Add();
                IdMessage1->Recipients->EMailAddresses = "blabla@wanadoo.fr";
 
                IdMessage1->Recipients = IdMessage1->Recipients;
                IdMessage1->Subject = "Essai d'un envoie automatique";
 
                IdMessage1->Body->Add(TextMail);
 
                IdSMTP1->Send(IdMessage1);
                IdMessage1->Clear();
        }
        else
        {
                ShowMessage("Erreur d'authentification");
        }
 
 
 
        IdSMTP1->Disconnect();
        //IdSMTP1->Free();
 
        //IdMessage1->Free();
}
//---------------------------------------------------------------------------

je vous remercie pour les indications que vous me donnerais sur ce sujet.
Cordialement.