Tidmessage的问题(200分)

我想在发邮件的时候 给idmessage里的msgid赋值，但是赋不进去

var IdMsgSend: TIdMessage;
begin
idmsgsend.MsgId:='.....';
...
end;
在发送以后，这个msgid 并没有一起发出去,该怎么给他赋值阿！！！


Received: from gold(211.68.42.127) by myserver.com with SMTP; 06 May 2002 16:35:03
Message-ID: <001a01c1f4d8$ead2a070$7f2a44d3@gold>
From: "=?gb2312?B?vfDwqQ==?=" <goldtogo@myserver.com>
To: "=?gb2312?B?ztI=?=" <goldtogo@myserver.com>
Subject: =?gb2312?B?1PXDtLvYysKjv6O/o78=?=
Date: Mon, 6 May 2002 16:35:03 +0800
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0017_01C1F51B.F8DA6930"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200


上面是outlook发的一封邮件的详细信息，下面是indy的demo的发邮件信息


Received: from gold(211.68.42.127) by myserver.com with SMTP; 06 May 2002 17:24:31
From: goldtogo@myserver.com
Subject: =?GB2312?B?uf7C3g==?=
To: goldtogo@myserver.com
Content-Type: text/plain;
Date: Mon, 6 May 2002 17:24:31 +0800
X-Priority: 3
X-Library: Indy 8.0.25



用indy的例子发的邮件就没有message-id

我就是想该如何将这个message-id加进去？

找到IDMessage.pas,再其中搜索Values['X-Library'] ,把它所在的行注释掉，就可以了
然后保存，重新编译控件包，或者重新安装控件，要么把这个单元加入工程也可以

接受答案了.