function GibMirNenWebsicherenDateinamenZurueck(const S: string): string;
begin
  // 1. In Kleinbuchstaben umwandeln:
  Result := LowerCase(S);

  // 2. Dedizierte Sonderzeichen-Umwandlungen:
  // ä->ae, ö->oe, ü->ue, ß->ss, ñ->n, à->a, á->a, è->e,
  // é->e, ì->i, í->i, ò->o, ó->o, ù->u, ú->u, -->_
  // Token vom User editierbar
  Result := CustomSonderzeichenNachASCII(Result);
  
  // 3. Auf zugelassene Zeichen beschränken:
  // Token vom User editierbar
  // Alle Zeichen außer ['a-z', '0-9'] umwandeln nach '_':
  Result := AlleAnderenZeichenUmwandeln(Result, ['a-z', '0-9'], '_');

  // 4. Unterstriche zusammenfassen: Maximal [1] Unterstrich hintereinander:
  Result := UnterstricheBegrenzen(Result, '_', 1);
end;