我在TMemo中编辑一篇文章，其它有些字符要替换成更长的串。因为被替换的串可能有重复，而我不需要替换所有串，所以我是用sellenght和selstart来确定它的位置，但问题是我怎样替换它？我现在是利用利用selstart和sellengh从TMemo.Lines.text中找出被替换的字符串，然后用stringreplace来处理，但这样有可能把其它的相同的串都替换了，怎么办？有没有类似

Replace( AText, SubText, ToText, Start, Length)

这样的函数？

假設要把 Memo1 中的第一個 test 字串取代為 TEST 字串

procedure TForm1.Button2Click(Sender: TObject);
var
iPos: integer;
sTmp: string;
begin
sTmp := Memo1.Lines.Text;
iPos := Pos('Memo4', sTmp);
Delete(sTmp, iPos, Length('test'));
Insert('TEST', sTmp, iPos);
Memo1.Lines.Text := sTmp;
end;