/// <summary>
///   Конвертация строки в XML-строку
/// </summary>
/// <param name="ASource">
///   Исходная строка
/// </param>
/// <returns>
///   Строка в формате XML
/// </returns>
function ConvertToXmlString(const ASource: string): string;
var
  I: Integer;
begin
  // инициализируем
  Result := '';
  // по каждому символу
  if Length(ASource) > 0 then
  begin
    for I := Low(ASource) to High(ASource) do
    begin
      case ASource[I] of
        '<': Result := Result + '<';
        '>': Result := Result + '>';
        '"': Result := Result + '"';
        '&': Result := Result + '&';
      else
        // просто добавляем
        Result := Result + ASource[I];
      end;
    end;
  end;
end;

procedure SaveToFile(const AFileName: string): Integer;
var
  IntlFile: System.Classes.TStringList;
begin
  IntlFile := System.Classes.TStringList.Create;
  try
    // обязательный заголовок файла в XML-формате
    IntlFile.Add('<?xml version="1.0" encoding="utf-16" standalone="yes"?>');
    // простейшее тело документа
    IntlFile.Add('<Group title="' + ConvertToXmlString('вот такой <КЛАССНЫЙ со спецсимволами> заголовок') + '">');
    IntlFile.Add('</Group>');
    // записываем в Unicode, поддерживаются все языки, включая китайский, иврит, еще много других неизвестных мне
    IntlFile.SaveToFile(AFileName, TEncoding.Unicode);
  finally
    IntlFile.Free;
  end;
end;