Neuen Knoten einfügen

[tobu]

Das war ja nur ein Prototype ich habe jetzt anders gemacht.

Delphi-Quellcode:

 case CBAuthor.ItemIndex of
  0:  NewScript.Attributes['Author'] := 'CD';
  1:  NewScript.Attributes['Author'] := 'FV';
  2:  NewScript.Attributes['Author'] := 'JSP';
  end;