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: implementation
  
  uses
  {$ifdef windows}
    comobj;
  {$else}
    SysUtils;
  {$endif}
  
  { TmOutlookMailFactory }
  
  constructor TmOutlookMailFactory.Create;
  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;
  
  