anchor.diff:    Result:= Self;
   end;
   
  +function TSendMail.AddPlainText(const aStrings: TStrings): TSendMail;
  +begin
  +  FPlainText.AddStrings(aStrings);
  +  Result := Self;
  +end;
  +
   function TSendMail.ClearHTML: TSendMail;
   begin
     FHTML.Clear;
     Result:= Self;
  +end;
  +
  +function TSendMail.ClearPlainText: TSendMail;
  +begin
  +  FPlainText.Clear;
  +  Result := Self;
   end;
   
   function TSendMail.Send(out aErrorMessage: String): boolean;
  
positive.code:     FSenderName: String;
      FSenderMailAddress: String;
      FRecipients: String;
      FSubject: String;
      FHTMLImages : TObjectList;
      FAttachments : TObjectList;
      FHTML: TStringList;
    public
      constructor Create;
      destructor Destroy; override;
  
negative.code:   FHTMLImages.Free;
    FAttachments.Free;
    FHTML.Free;
    FPlainText.Free;
    inherited Destroy;
  end;
  
  