关于发送附件的小问题。200(200分)

在INDY的IDSMTP和IDPOP3中的附件如何发送接收，能具体说明一下用法最好。
INDY的源程序我看过，不过没有说如何添加多个附件。

看看下面这段程序也许有帮助的。
procedure TfrmMessageEditor.btnAttachmentClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);
ResetAttachmentListView;
end;
end;

procedure TfrmMessageEditor.ResetAttachmentListView;
var li: TListItem;
idx: Integer;
begin
lvFiles.Items.Clear;
for idx := 0 to Pred(IdMsgSend.MessageParts.Count) do
begin
li := lvFiles.Items.Add;
if IdMsgSend.MessageParts.Items[idx] is TIdAttachment then
begin
li.ImageIndex := 0;
li.Caption := TIdAttachment(IdMsgSend.MessageParts.Items[idx]).Filename;
li.SubItems.Add(TIdAttachment(IdMsgSend.MessageParts.Items[idx]).ContentType);
end
else
begin
li.ImageIndex := 1;
li.Caption := IdMsgSend.MessageParts.Items[idx].ContentType;
end;
end;
end;

上铺的兄弟说的也就是INDY的DEMO，你看看类子好了！
C:/Program Files/Borland/Delphi6/Demos/Indy/MailClient
你看看就明白了！

多人接受答案了。