indy 中的idpop3收信内容错误求解 (100分)

我用indy 中的idpop3收信内容为下面字符。不是原信内容。

indy 中的idpop3在MIME解码时有问题，如果自己用idSMTP做一个发送邮件的程序，发送时
自己编码，用idpop3接受时用对应的办法解码，就没有问题。

to martiny:
谢谢,送20分. 这么说idpop3也有问题了?nmpop3也不行,有其他控件,并可以下载吗?
可是我要用outlook发送邮件怎么办呢?

idpop3有问题吗？我用还行呀

以下就是显示outlook邮件内容程序,
正文文本显示为:This is a multi-part message in MIME format.不是原文内容.
附件列表中总是多显示两个图标,没有附件,也会显示这两个图标,怎么回事呢?

procedure TForm1.ButtonplayClick(Sender: TObject);
var
intIndex: Integer;
li: TListItem;
begin
if lvHeaders.Selected = nil then
begin
Exit;
end;
Msg.Clear;
Memo1.Clear;
lvMessageParts.Items.Clear;
POP.Retrieve(lvHeaders.Selected.Index + 1, Msg); //get message and put into MSG
//Setup attachments list
for intIndex := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
begin
li := lvMessageParts.Items.Add;
li.ImageIndex := 8;
li.Caption := checktxt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename);
end
else
begin //body text
if Msg.MessageParts.Items[intIndex] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
end
end;
end;
end;

接受答案了.