StringReplace ersetz nichts

[Sascha_OW]

Hallo,

ich habe folgenden Code:

Delphi-Quellcode:

   for i := 0 to Memo1.Lines.count -1 do begin
       test123 := Memo1.Lines[i];
       StringReplace (test123, '&','&',[rfReplaceAll]);
       StringReplace (test123, #27,''',[rfReplaceAll]);
       StringReplace (test123, '<','<',[rfReplaceAll]);
       StringReplace (test123, '>','>',[rfReplaceAll]);
       StringReplace (test123, '"','&quot;',[rfReplaceAll]);
       StringReplace (test123, 'Ä','Ä',[rfReplaceAll]);
       StringReplace (test123, 'Ö','Ö',[rfReplaceAll]);
       StringReplace (test123, 'Ü','Ü',[rfReplaceAll]);
       StringReplace (test123, 'ä','&#228',[rfReplaceAll]);
       StringReplace (test123, 'ö','ö',[rfReplaceAll]);
       StringReplace (test123, 'ü','ü',[rfReplaceAll]);
       StringReplace (test123, 'ß','ß',[rfReplaceAll]);
end;

und wenn ich jetzt ein ä, ö etc in der Memo hab ersetz er mir nichts. Kann mir einer helfen wiesop?