SubNode := MailNode.ChildNodes.FindNode('ATTACHMENTS');
if (SubNode <> nil) and SubNode.HasChildNodes then
begin
for j := 0 to SubNode.ChildNodes.Count -1 do
begin
dsAttachments.Insert;
dsAttachmentsCONTENT_TYPE.AsVariant := SubNode.ChildNodes[j]['CONTENT_TYPE'];
dsAttachmentsFILENAME.AsVariant := SubNode.ChildNodes[j]['FILE'];
dsAttachmentsELEMENT_ID.AsVariant := SubNode.ChildNodes[j]['ELEMENT_ID'];
dsAttachments.Post;
end;
end;