Замена символа в Memo

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
while (int i:=Memo1.Text.Pos[SIZE=3](",")[/SIZE]);
   Memo1.Text=Memo1.Text.DelDelete(i,3);
       Memo1.Text = Memo1.Text.Insert[SIZE=3](".",i);[/SIZE]
//StringReplace([SIZE=3]',', '.'[/SIZE], [rfReplaceAll]);
end;

uses StrUtils
 
...
var str1, Str2, Str3: String;
begin;
Str1 := ',,,,'; //исходныый текст
Str2 := ','; //что заменить
Str3 := '.'; //чем заменить
Str1 := AnsiReplaceStr(Str1, Str2, Str3);

j := Pos('<A name="5" id="5">',s);
Delete(s,1,j-1);
j := Pos('<TD colspan="13" bgcolor="#CCCCCC"><CENTER>',s);
Delete(s,1,j+25);
j := Pos('</TABLE>',s);
Delete(s,j,len);
begin
s := StringReplace(s, '<B>', '', [rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s, '</B>', '', [rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s, '</CENTER></TD>', '', [rfReplaceAll, rfIgnoreCase]);
end;
Memo1.Lines.Text := s;

 begin
   Memo1.SelectAll;
   len := Memo1.SelLength;
   s := Memo1.SelText;
 
     j := Pos('<A name="5" id="5">',s);
     Delete(s,1,j-1);
     j := Pos('̳ñÿöü ³íäåêñàö³¿',s);
     Delete(s,1,j+16);
     j := Pos('</TABLE>',s);
     Delete(s,j+8,len);
       for i := 0 to len+1 do
         begin
           j:=Pos('<',s);
           word := Copy(s,j,1);
           j_l := Pos('>',s);
           word_end := Copy(s,j_l,1);
           for k := j to j_l do
           Delete(s,j,1);
           s := StringReplace(s, '  ', '/', [rfReplaceAll, rfIgnoreCase]);
           s := StringReplace(s, '/', ' ', [rfReplaceAll, rfIgnoreCase]);
         end;
      Memo1.Lines.Text := s;

procedure TfrmZpRefIndex.SaveClick(Sender: TObject);
  var
  tS, tSr : String;
  i, t, len : LongInt;
  Del, Del_end : LongInt;
begin
  tS := Memo1.Lines.Text;
  i := Pos('<A name="5" id="5">', tS);
  tSr := Copy(tS, i+1, len);
  i := Pos('Місяць індексації', tSr);
  tSr := Copy(tSr, i+81, len);
  i := Pos('</TR></TABLE>', tSr);
  tS := Copy(tSr, 1, i-8);
  Memo1.SelectAll;
  len := Length(Memo1.Lines.Text);
    for i := 0 to len+1 do
      begin
        Del := Pos('<', tS);
        Del_end := Pos('>', tS);
         for t := Del to Del_end do
          begin
            Delete(tS,Del,1);
          end;
        tS := StringReplace(tS, '  ', ' ', [rfReplaceAll, rfIgnoreCase]);
      end;
   Memo1.Text := tS;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
i, p : Integer;
begin
for i := 0 to memo1.Lines.Count-1 do begin
    s := Memo1.Lines[i];
    p := Pos('|', s); delete(s, p, 1); insert('&piar=', s, p);
    p := Pos('|', s); delete(s, p, 1); insert('&cont=', s, p);
    memo1.Lines[i] := 'row=' + s;
    end;
end;