Memo-Feld mit Zeilenumbruch auslesen

[WIng2005]

Ein Problem habe ich aber trotzdem noch:

Die Daten des Memos sind Prüfergebnisse. Dummerweise enthalten diese auch Sonderzeichen (ungewollt, aber noch nicht behoben).
Diese versuche ich mit Stringreplace zu ersetzen. Funktioniert jedoch nur bei einem der beiden Sonderzeichen. Hier mal
ein wenig Code:

Delphi-Quellcode:

.
.
.
/////////////////////////////////////////////////////////  Ausschnitt!!
while not zquery2.Eof do
    Begin
      bcs.JvMemo1.Lines.Text:=bcs.JvMemo1.Lines.Text
       + str_rep(zquery2.fieldbyname('user_data1').AsString);
      zquery2.next;
    end;
.
.
.
/////////////////////////////////////////////////////////

function str_rep(s:string):string;
Begin
result:=StringReplace(s,'','',[rfReplaceAll]);
result:=StringReplace(s,'€','',[rfReplaceAll]);
end;

Wie gesagt, es funktioniert nur beim '€'.

MFG
Steffen