1:
2:
3:
4:
5:
6:
7:
8:

begin
   SL:= TStringList.Create;
   msg.Clear;
   Pop.Retrieve(lvHeaders.Selected.Index+1, Msg);
   parts:=Msg.MessageParts.Count;
   showmessage(IntToStr(Msg.MessageParts.Count));
   TIDAttachment(Msg.MessageParts.Items[2]).SaveToFile('c:\test.txt');
   .....