[[Chris]]

para reemplazar palabras, en la unidad StrUtils existen algunas funciones para esta tarea, la que yo he utilizado es StringReplace de la unidad SysUtils. La utilizas de la siguiente forma

Código Delphi [-]

{ estructura de la función
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

TReplaceFlags es un set que puede contener los siguientes dos valores:
rfReplaceAll = reemplaza todas las ocurrencias de OldPattern, si no la colocas en flags, entonces solo reemplazará la primera ocurrencia.

rfIgnoreCase = si la incluyes en "Flags" entonces no distinguirá entre mayúsculas y minúsculas.
}

StringReplace(Memo1.Text,'ReemplazarEsto','ReemplzarConEsto',[rfReplaceAll,rfIgnoreCase]

He nacido para ayudar a la humanidad. Ojala te sirva. bye.