Delphi 7 - Създаване на email с вградено избражение в Outlook

Създаване на email с вградено изображение и прикачени файлове в Outlook от програма на Delphi 7.

procedure Create_Outlook_Mail;
var
  Outlook: OleVariant;
  MailInspector,
  vMailItem: variant;
begin
  if fileexists(req_file) then
    memMessage.Lines.LoadFromFile(req_file);
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('someone@somesite.com');
  vMailItem.Subject := 'Example';
  vMailItem.HTMLBody := '<img rc="somepicture.jpg" />');
 
// Използва се метод Add на Attachments - http://msdn.microsoft.com/en-us/library/office/ff869553.aspx
//   Attachments.Add(Source, Type, Position, DisplayName)
// Стойност 5 за Type съответсва на olEmbeddeditem. Всички стойности : http://msdn.microsoft.com/en-us/library/office/ff868693.aspx
  vMailItem.Attachments.Add('somepicture.jpg', 5, 1, 'Embedded picture');
 
  vMailItem.Attachments.Add('attachedfile_1.txt');
  vMailItem.Attachments.Add('attachedfile_2.txt');
  vMailItem.Attachments.Add('attachedfile_3.txt');
  try
// За да се избегне извеждането на грешка при vMailItem.Display; 
    MailInspector := vMailItem.GetInspector;
    MailInspector.display(true); //true means modal
  except
  end;
  VarClear(Outlook);
end;