Проблема поиск и замена текста(Delphi)

[KirkMETAL]

Подскажите, что нужно исправить в этом коде, чтобы был правильный поиск и замена. Проблема в том, что ищет вроде нормально, но есть один глюк, вводишь например "Найти: 2 Заменить на: 82" и цикл начинает идти по кругу до бесконечности.

procedure TForm1.ReplaceClick(Sender: TObject);
begin
  If n>0 then
  With ActiveMDIChild as TForm2 do
  begin
  SPOS:=Memo1.SelStart;
  With ReplaceDialog1 do
    begin
      FindText:=Memo1.SelText;
      Position:=Point(Form1.Left,Form1.Top+Memo1.Top+Memo1.Height);
      Options:=Options+[frHideUpDown,frHideWholeWord];
      Execute;
    end;
  end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  With ActiveMDIChild as TForm2 do
  begin
  If Memo1.SelText<>'' then Memo1.SelText:=ReplaceDialog1.ReplaceText;
  If frReplaceAll in ReplaceDialog1.Options then begin
    If s=1 then  begin
      s:=0;
      Exit;
      end
      else
      ReplaceDialog1Find(Self);
      ReplaceDialog1Replace(Self);
    end;
  end;
end;

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
var a:integer;
begin
  a:=0;
  With ActiveMDIChild as TForm2 do
  begin
  with ReplaceDialog1 do begin
    if frMatchCase in Options then
      a:=Pos(FindText,Copy(Memo1.Lines.Text,SPOS+1,Length(Memo1.Lines.Text)))
      else
      a:=Pos(AnsiLowerCase(FindText),AnsiLowerCase(Copy(Memo1.Lines.Text,SPOS+1,Length(Memo1.Lines.Text))));
    Memo1.SelStart:=a+SPOS-1;
    If a>0 then begin
      Memo1.SelLength:=Length(FindText);
      SPOS:=Memo1.SelStart+Memo1.SelLength;
      end
    Else if MessageDlg('Текст "'+FindText+'" не найден. Продолжить диалог?',mtConfirmation,mbYesNoCancel,0)<>mrYes then begin s:=1; CloseDialog; end
       else begin SPOS:=0; s:=1; end;
      end;
  Form1.SetFocus;
  end;
end;

[Stilet]

А чегоб тебе не сделать так:

от и:=0 до Мемо.Линес.Соунт-1 делать
Мемо.линес[и]:=StringReplase(Мемо.линес[и],'2','82',[rfReplaceAll]);

[KirkMETAL]

Это вот здесь надо менять?

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  With ActiveMDIChild as TForm2 do
  begin
  If Memo1.SelText<>'' then Memo1.SelText:=ReplaceDialog1.ReplaceText;
  If frReplaceAll in ReplaceDialog1.Options then begin
    If s=1 then  begin
      s:=0;
      Exit;
      end
      else
      ReplaceDialog1Find(Self);
      ReplaceDialog1Replace(Self);
    end;  end;
end;

[GAGARIN-NEW]

StringReplace - готовая функция

[ZvEr_HaCkEr]

procedure TForm4.ReplaceDialog1Find(Sender: TObject);
begin
with Sender as TReplaceDialog do
while True do
begin
if Memo1.SelText <> FindText then
FindDialog1Find(Sender);
if Memo1.SelLength = 0 then Break;
Memo1.SelText:= ReplaceText;
if not (frReplaceAll in Options) then Break;
end;
end;
procedure TForm4.ReplaceDialog1Replace(Sender : TObject);
label 10;
begin
Memo1.HideSelection:=true;
10:
if pos(ReplaceDialog1.FindText,Memo1.T ext)<>0 then
begin
Memo1.SelStart:=pos(ReplaceDialog1. FindText,Memo1.Text)-1;
Memo1.SelLength:=Length(ReplaceDial og1.FindText);
Memo1.SelText:=ReplaceDialog1.Repla ceText;
goto 10;
end;
Memo1.HideSelection:=false;
end;
end.