Слово перевертыш

[solnishko3191]

procedure TForm2.Button1Click(Sender: TObject);
      var st :string;
    i,j:integer;
begin
 j:=0;
 st:=self.memo1.Lines.Text;
 if(length(self.Edit1.Text)=0 ) then
 {проверяем не пустая ли строка с искомым символом}
  begin
   Application.MessageBox('Введите символы','Предупреждение',MB_OK);
   exit;
  end;
 i:=pos(self.Edit1.Text[1],st);
 {определяем позицию искомого символа}
 while (i>0) do
 begin
  inc(j); {увеличиваем счетчик}
  st:=copy(st,i+1,length(st)-i);
          {вырезаем строку}
  i:=pos(self.Edit1.Text[1],st);

 end;
  form3.Label1.Caption:='Слово перевертыш - '
+inttostr(j);
  form3.showmodal;
   {Запустить форму отображения результатов}




end;

end.

это код, но он считает количество вхождений определенного символа в строк, а мне нужно , заменить в тексте все вхождения заданной пользователем подстроки на ее «перевертыш». Например, есть текст «Двоечник опять получил двойку». Пользователь задает подстроку «дво», и в результате получаем «Овдечник опять получил овдйку» помогите пожалуйста изменить код


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

1. Нати слово функцие Pos, если слова нет то к пункту 7.
2. Запомнить позицию слова.
3. Удалить из строки найденое вхождение.
4. Перевернуть слово.
5. Вставить посредством Insert.
6. к пункту 1.
7. Выход.