StringReplace will nicht?

[Tommy1988]

Hab da aber schon ein neues Problem, was ich nicht geregelt bekomme

Folgender Code steht im OnChange des Memo1

Delphi-Quellcode:

Memo1.Lines.Text :=
StringReplace(Memo1.Lines.Text, '[color='+
ColorToHex(JvColorButton1.Color)+']', '<font color=#'+
ColorToHex(JvColorButton1.Color)+'>',
[rfReplaceAll, rfIgnoreCase]);

Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '[/color]', '</font>',
[rfReplaceAll, rfIgnoreCase]);

Memo2.Lines.Text := Memo1.Lines.Text;

Wenn ich jetzt auf einen Button klicke und zuvor einen Farbe aus dem JvColorButton ausgewählt habe,
wird diese auch ordnungsgemäß hinzugefügt. Im WebBrowser stimmt auch die Farbe.

Führe ich dies jedoch ein zweites Mal aus, so setzt er den 2. Text in die richtige Farbe, aber den
ersten wieder in "Schwarz" ?