Una manera rapida de hacer esto:
Código Delphi
[-]
Memo1.Text:= StringReplace(Memo1.Text,'vieja','nueva',[rfReplaceAll, rfIgnoreCase]);
Las opciones rfReplaceAll y rfIgnoreCase indican que se reemplacen todas las coincidencias y que se no se distingan mayusculas de minusculas.