[lmikle]

Код:

Memo1.Lines.Text := StringReplace(S,'cr',#13#10,[rfReplaceAll]);

Как то так. Проверь параметры функции, вроде не ошибся.
Да, если надо менять без учета регистра, то добавь в флаг (последний параметр) rfIgnoreCase