Создать кнопку "Замена" выделенного текста

[natsik'09]

Надо создать кнопку, так чтобы выделенный текст заменялся на набранный. Например, в RichEdit выделяем текст, который надо заменить, а в Edit набираем на что заменить, затем нажимаем кнопку "замена" и выполняется действие.
Есть код программы, но он с ошибками, работает не так как надо, заменяет все слово, кроме последней буквы:
RichEdit1.Lines.Text :=
Copy(RichEdit1.Lines.Text,1,RichEdi t1.SelStart) +
Edit1.Text +
Copy(RichEdit1.Lines.Text,RichEdit1 .SelStart+RichEdit1.SelLength,Lengt h(RichEdit1.Lines.Text));

Как сделать даже не знаю, помогите пожалуйста)

[Google2010]

функция stringreplace уже не в моде?

[evg_m]

RichEdit выделяем текст, который надо заменить

это будет richedit.SeText

в Edit набираем на что заменить

это будет Edit.text

и выполняется действие.

Rrichedit.SeText:=Edit.Text;

[natsik'09]

Сообщение от Google2010

функция stringreplace уже не в моде?

Я просто не особо разбираюсь в делфи, мне по учебе надо!!!
Если Вам не трудно, то пожалуйста напишите мне правильный ответ с этой функцией!!!))

[natsik'09]

[QUOTE=evg_m;505221]это будет richedit.SeText это будет Edit.text

Rrichedit.SeText:=Edit.Text;

[/QUO
Спасибо большое)) это оказывается так легко и просто, а я голову ломала, и так, и так пробовала по-всякому, не получается...а тут вобще только одна строчка нужна))) Спасибо)