Would StringReplace do the work?
http://www.delphibasics.co.uk/RTL.as...=StringReplace