Найти без учёта регистра

[Shouldercannon]

var
  s1, s2, s3: string;
  a, b: Integer;
  TSL: TStringList;
begin
  // Что ищем
  s2 := '007';
  // Чем заменяем
  s3 := '***';
  
  TSL := TStringList.Create;
  TSL.LoadFromFile('test.txt');

  b := 0;

  for a := TSL.Count - 1 downto 0 do
  if s2 = trim(TSL[a]) then
  begin
    TSL.Strings[a] := s3;
    b := b + 1;
  end;

  if b = 0 then Label1.Caption := 'Совпадений не найдено' else Label1.Caption := 'Произведено ' + IntToStr(b) + ' замен "' + s2 + '" на "' + s3 + '"';
  TSL.SaveToFile('test1.txt');
  TSL.Free;

Из
007
"007"
*007*
[007]
производится замена на *** только 007. Как сделать чтобы все 007 были заменены на *** и на выходе получилось
***
"***"
*****
[***]

[Аватар]

for a := TSL.Count - 1 downto 0 do begin
  s:=TSL.Strings[a];
  i:=Pos(AnsiUpperCase(s2),AnsiUpperCase(s));
  while i>0 do begin
    s:=Copy(s,1,i-1)+s3+Copy(s,i+Length(s2),Length(s)-i-Length(s2)+1);
    TSL.Strings[a]:=s;
    Inc(b);
    i:=Pos(AnsiUpperCase(s2),AnsiUpperCase(s));
  end;
end;

[Shouldercannon]

не разберусь, что отсюда убрать, чтобы просто выполнить подсчёт совпадений

    s:=Copy(s,1,i-1)+s3+Copy(s,i+Length(s2),Length(s)-i-Length(s2)+1); // без зависает
    TSL.Strings[a]:=s; // скорее всего это
    Inc(b); // не трогаем подсчёт
    i:=Pos(AnsiUpperCase(s2),AnsiUpperCase(s)); // без зависает

[Аватар]

TSL.Strings[a]:=s; // скорее всего это

[Shouldercannon]

b := 0; // Нужно обязательно

for a := TSL.Count - 1 downto 0 do begin
  s:=TSL.Strings[a];
  i:=Pos(AnsiUpperCase(s2),AnsiUpperCase(s));
  while i>0 do begin
    s:=Copy(s,1,i-1)+s3+Copy(s,i+Length(s2),Length(s)-i-Length(s2)+1);
    Inc(b);
    i:=Pos(AnsiUpperCase(s2),AnsiUpperCase(s));
  end;
end;