xmlProfile := TXMLDocument.Create(self);
  xmlProfile.Active := True;
  xmlProfile.Encoding := 'UTF-16'; //for unicode;
  xmlProfile.Options := [doNodeAutoIndent];
  ...
  ...