String mit erweitertem ASCII Zeichensatz verarbeiten

[retnyg]

memo1.text := stringreplace(mmScan.Text,#$D1,'[D1]',[rfReplaceAll]);