Pues simple: accedes a la lista de cadenas del Tmemo ( Lines:TStrings ) , buscas la cadena que tienes que reemplazar y utilizas las funciones
function Pos(Substr: string; S: string): Integer;
function Copy(S: string; Index, Count: Integer): string;
Para ubicar lo que quieres reemplazar, reemplaza y listo.