XML ohne Declaration

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  xmlDoc: IXmlDocument;
begin
  coInitialize(nil);
  xmlDoc := newXmlDocument;
  xmlDoc.Active := true;
  xmlDoc.Encoding := 'UTF-16';
  memo1.Lines.Text := xmlDoc.XML.Text;
  coUnInitialize;
end;

im Memo steht dann: <?xml version="1.0" encoding="UTF-16"?>

Grüße
Klaus