[PhoeniX]

Я бы ещё добавил флаг Ignore Case...

Код:

 Memo1.Text := StringReplace(Memo1.Text, 'html', 'xml',[rfReplaceAll,rfIgnoreCase]);