编写邮件发送程序中如何使用idmessage做这样的邮件头？？？(100分)

其中信息使用idmessage
但是idmessage的contenttyle ：只有一行，
例如：
Content-Type: multipart/related;

那这样的邮件头如何生成啊？
Content-Type: multipart/related;
type="multipart/alternative";
boundary="1"

DELPHI有现成的组件么