anchor.diff:        s := UTF8Decode(FHTMLBody.Text);
         MailItem.HTMLBody := s;
       end;
  +    MailItem.Recipients.ResolveAll;
       MailInspector := MailItem.GetInspector;
       MailInspector.display(aShowModal); //true means modal
    finally
  
positive.code:     for i := 0 to FRecipients.Count - 1 do
      begin
        s := UTF8Decode(FRecipients.Strings[i]);
        MailItem.Recipients.Add(s);
      end;
      tmp := '';
      sep := '';
      for i := 0 to FCCRecipients.Count -  1 do
      begin
        tmp := tmp + sep + FCCRecipients.Strings[i];
        sep := '; ';
      end;
      if tmp <> '' then
      begin
  
negative.code: 
  function TmOutlookMailFactory.AddRecipient(const aValue: String): TmOutlookMailFactory;
  begin
    UpdateRecipients(aValue, FRecipients);
    Result := Self;
  end;
  
  function TmOutlookMailFactory.AddCCRecipient(const aValue: String): TmOutlookMailFactory;
  begin
   UpdateRecipients(aValue, FCCRecipients);
   Result := Self;
  end;
  
  function TmOutlookMailFactory.AddBCCRecipient(const aValue: String): TmOutlookMailFactory;
  begin
   UpdateRecipients(aValue, FBCCRecipients);
   Result := Self;
  end;
  
  