idmessage如何接收多个附件的邮件

idmessage怎么接收多个附件的邮件?
如题,小弟现在做的只能接收一个附件的邮件,当有多个附件是,就会出错.请大虾指点!

------解决方案--------------------


for intIndex := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
begin
//是附件，存起来
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;