如何更改电子邮件的字体？

Question

我在Delphi XE3中使用TidSmtp和TidMessage来发送邮件：

Idmessage1.body := StringList;
Smtp.Send(IDmessage1);

如何更改Idmessage1的字体？