for i:= 0  to ii do
begin
TIdAttachment.Create(IdMsgSend.MessageParts, extractfilepath('la-la-la'));
end;
   with TIdText.Create(IdMsgSend.MessageParts, memo.Lines) do
   begin
   end;
   with TIdText.Create(IdMsgSend.MessageParts, memo.Lines) do
   begin
   end;
SMTP.Send(IdMsgSend);

for c :=  0  to Msg.MessageParts.Count -  1  do
begin
if Msg.MessageParts.Items[c] is TIdAttachment then
begin
if fileexists(TIdAttachment(Msg.MessageParts.Items[c]).FileName) then
deletefile(TIdAttachment(Msg.MessageParts.Items[c]).FileName);
TIdAttachment(Msg.MessageParts.Items[c]).SaveToFile(TIdAttachment(Msg.MessageParts.Items[c]).FileName);
end
else
if Msg.MessageParts.Items[c] is TIdText then
begin
Memo.Lines.Clear;
Memo.Lines.AddStrings(TIdText(Msg.MessageParts.Items[c]).Body);
end;
end;