[Страдалецъ]

Долго читал...
Вы хотите в тексте заменить весь текст между словом1 и словом2 на слово3 ?
Тогда где-то так:

Код:

function ContextReplace(S,S1,S2,S3: String): String;
Var
  SPos,EPos: Integer;
begin
 Result := S;
 SPos := PosEx(S1, S, 1);
 EPos := PosEx(S2, S, SPos);
 if (SPos <> 0) and (EPos <> 0)
 then Result := Copy(S,1,SPos+Length(S1)-1) + S3 + Copy(S,EPos,Length(S));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text := ContextReplace(Memo1.Text,' Мама ','раму',' мыла ');
end;