StringReplace "String" durch "[b]String[/b]" ersetzen

[QStorm]

Hallo,

Ich möchte ein Wort innerhalb einer Zeichenkette mit bestimmten Styleattributen umgeben. Dabei soll die Groß- und Kleinschreibung auf JEDEN FALL erhalten bleiben.

Beispiel:Wort: ich
Zeichenkette: Ich wusste, dass ich in diesem Punkt falsch lag.
Ersetzen durch: Ich wusste, dass ich in diesem Punkt falsch lag.

Momentan mache ich das mit StringReplace:

Code:

StringReplace(Caption, Highlight, ('[b]' + Highlight + '[/b]'), [rfReplaceAll, rfIgnoreCase])

Leider geht damit die ursprüngliche Groß- und Kleinschreibung verloren.

Fällt euch dafür eine geeignete Lösung ein? Gibt es vielleicht schon eine passende Methode dafür?

Vielen Dank im voraus.

/Steven