Delphi-Quellcode:
const
HtmlCodes: array[0..3] of String = ('ä', 'å', 'æ', 'ç');
// Das ä hat den Zeichencode $E4, also ist das die unterste Grenze beim Ersetzen
if (DerString[i] >= Chr($E4)) and (HtmlCodes[Ord(DerString) - $E4] <> '') then
// Zeichen i durch HtmlCodes[Ord(DerString) - $E4] ersetzen
Das kann man natürlich effizienter umsetzen, z.B. indem alle Zeichen in das Array gelegt werden und daher weniger Abfragen nötig sind.
Eine schnelle Möglichkeit einer ähnlichen Vorgehensweise habe ich ja verlinkt.