anchor.diff:      Data : TStream;
     end;
   
  -
  +var
  +  logger : TmLog;
   
   { TSendMail }
   
  
positive.code:     htmlMessageBuilder.HtmlCharSet:= 'utf-8';
      tmpMessage.From.Name:= FSenderName;
      tmpMessage.From.Address:= FSenderMailAddress;
      tmpMessage.Recipients.EMailAddresses:= FRecipients;
      if FCCRecipients <> '' then
        tmpMessage.CCList.EMailAddresses:= FCCRecipients;
      if FBCCRecipients <> '' then
        tmpMessage.BccList.EMailAddresses:= FBCCRecipients;
      tmpMessage.Subject:= FSubject;
  
      if FHTML.Count > 0 then
        htmlMessageBuilder.Html.AddStrings(FHTML);
  
negative.code: 
        error:= false;
        try
          logger.Debug('Connecting...');
          tmpSMTP.Connect;
          logger.Debug('Sending message...');
          tmpSMTP.Send(tmpMessage);
          logger.Debug('Disconnecting...');
          tmpSMTP.Disconnect(true);
        except
          on e:Exception do
          begin
            aErrorMessage := e.Message;
            error := true;
            logger.Error(e.Message);
          end;
        end;
  
  