Stringreplace einmal auslösen für alle Umlaute?

[MarLe]

Super Funktion von SirThornberry.

Wie würde das denn aussehen wenn man als Zieldatei nicht die Quelldatei verwenden möchte

procedure FileReplaceChars(AFileName, BFileName: String);