TMemo Zeichen ersetzen

[bioser]

Hallo,

ich möchte im TMemo bestimmte Zeichen ersetzen, wie zum Beispiel "sz" durch "ß".
Ich verwende im OnChange-Handler pos('sz',trim(Memo.Text)) und ersetze gegebenfalls
"sz" dann mit StringReplace durch "ß", weil der Benutzer die Aktion auch abbrechen
kann, wenn "sz" nicht ersetzt werden soll.
Ich möchte aber, daß nicht immer wieder der gesamte Text durchsucht wird, sondern
ab dem nächsten Zeichen, das nach "sz" kommt.
Kann mir jemand behilflich sein ? Danke schon mal.

Gruss
BIOSER