Функция для текстового редактора: замена слов и символов

  public
    { Public declarations }
     procedure Zamena1(MM:TMemo; Ishodn, Zamen:string);
{вот здесь я обьявляю фукцию делающая замену
входными параметрами являются:текстовое поле типа Tmemo, заменяемое слово 
 
и заменяющее слово}
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
 
 
procedure TForm1.Zamena1(MM: TMemo; Ishodn, Zamen: string);
{это сама функция замены}
var k:integer; //целочисленная переменная
    vrem:string; //строковая перенная
begin
{ В данном случае не нужно пробегаться по сточка по всем,
потому что команда MM.Text; преобразовывает весь текст в огромную строчку
}
   vrem:='';//начальное значение переменной vrem(пустая строка)
   vrem:=MM.Text; //весь текст из текстового поля Memo1 записывается в виде 
 
//одной длинной строчки
     while Pos(Ishodn,vrem)<>0 do //функция POS()ищет заменяемое слово
//тут она в цикле так как может быть несколько искомых слов
       begin
         k:=Pos(Ishodn,vrem); //тут мы записываем номер буквы с которой начинается 
 
//искомое слово
{например: строчка--1т3рты-- а ищем мы --3р--тогда в переменную К запишется 
 
3(тройка)}
         Delete(vrem,k,Length(Ishodn));//эта функция удаляет из строчки то слово, 
 
//которое нужно заменить 
         Insert(Zamen,vrem,k);//а эта функция вставляет новое слово(вместо старого)
       end;
   MM.Text:=vrem;//тут мы заново записываем в текстовое поле изменённый текст
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
{по нажатию на кнопку выполняется эта процедура}
begin
    if (Edit1.Text<>'') and (Memo1.Text<>'') then//тут проверка на пустоту(текста и 
 
//заменяемого слова)
      begin
         Zamena1(Memo1, Edit1.Text, Edit2.Text);//если всё хорошо то вызывается 
 
//функция замены
      end
    else
      begin//если что то не введено, то
         Edit1.Text:='';//очищаем введённые данные для замены
         Edit2.Text:='';//очищаем введённые данные для замены
         MessageBox(0,'Нет самого текста, или нет слова которое нужно 
 
заменить...','Ошибка...',mb_iconinformation);//и выводим сообщение
      end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   Close;//закрытие программы
end;
 
end.