StringReplace will nicht?

Folgendes Problem.

Ich möchte gerne BBCode aus Memo1 ersetzen und in Memo2 schreiben lassen:

Delphi-Quellcode:

			procedure TForm1.Check(sMemo: TMemo);

var

nMemo: String;

begin

nMemo := sMemo.Lines.Text;

Memo2.Lines.Text :=

StringReplace(nMemo, '[color=', '<font color=#',

[rfReplaceAll, rfIgnoreCase]);

Memo2.Lines.Text :=

StringReplace(nMemo, '[b]', '[b]', [rfReplaceAll]);

Memo2.Lines.Text :=

StringReplace(nMemo, '[/b]', '[/b]', [rfReplaceAll]); // HIER

LoadHTMLToWebbrowser(WebBrowser1, SynMemo2.Lines);

end;

Aber irgentwie will nur das in der markierten Zeile funktionieren, das drüber und drunter geht nicht

StringReplace will nicht?

StringReplace will nicht?

Forumregeln