msxml attribut setzen

[ch33seburger]

hi

kann mir vielleicht jemand verraten wie ich bei msxml ein Attribut setzen kann?
ich habs jetz schon einige male probiert, bekomme aber jedesmal ne fehlermeldung :/

Code:

procedure TForm5.Button2Click(Sender: TObject);
var
newmovie, newsub: IXMLDOMNode;
begin
newMovie := xmlDoc.createElement(combobox1.text);
newSub := xmlDoc.createElement('b1');  //hierfür will ich noch nen attribut: namens "text" mit dem werd edit2.text
newSub.text := Edit1.Text;
newMovie.appendChild(newSub);
xmlDoc.documentElement.appendChild(newMovie);
xmlDoc.save(xfile);
end;

vielen dank