Замена слова в текстовом редакторе

[Славный]

А вот еще проблемка. Не могу замену слова сделать, опять чего-то не хватает
Жду помощи! Заранее благодарен!

[N!ckeL]

Сама функция:

function TForm1.Zamena(OldWord, NewWord, Where: String):string;
var
  i:integer;
begin
 i:=pos(OldWord, edit1.Text);
 if i=0 then
 result:=where
 else
  begin
 delete (Where, i, length(OldWord) );
 insert(NewWord, Where, i);
 result:=where;
  end;
end;

Использование:

edit1.Text:=zamena('123', '456', edit1.Text);

[Славный]

Не получается Можно написать полностью процедуру
procedure TForm1.ReplaceDialog1Replace(Sender : TObject); относительно моей программы?
Я новичок, еще ничего не умею. Благодарю за помощь заранее!

[N!ckeL]

ReplaceDialog - с ним не работал, в приложении пример без него..

[Славный]

Дружище, я не могу его совместить с моей программой Помоги еще разок, пожалуйста!

[N!ckeL]

Вот что получилось, он заменяет с помощью ReplaceDialog

[Славный]

Слушай, да я люблю тебя!!! Спасибо большущее!!!