Вопрос по StringReplace

[Lauri]

Я испльзую данную функцию что бы заменить названия процедур и функций в моём проекте.
Но по ходу работы столкнулся с проблемой. Например есть две функции

function ConvertSidToStringSid
function SIDToString

После использования своего рода обфускатора, они стали вида

function Converttest270658Sid
function test270658

Т.е заминилась часть, а не всё название

Код который использую для обфускации

var
  list, list2: tstringlist;
  i, ii: integer;
  new_str, old_str: string;
begin
  list := tstringlist.Create;
  list2 := tstringlist.Create;
  randomize;
  for i := 0 to listbox1.Items.count - 1 do
  if pos(listbox1.Items[i], memo4.text) = 0 then
    list2.add('test' + inttostr(random(1000000)));

  list.Text := memo1.Text;
  for i := 0 to listbox1.Items.Count - 1 do
    listbox1.Items[i] := stringreplace(listbox1.Items[i], ' ', '', [rfReplaceAll, rfIgnoreCase]);

  for i := 0 to list2.Count - 1 do
    memo4.Lines.add(list2.Strings[i] + '=' + listbox1.Items[i]);

  for i := 2 to list.Count - 1 do
  begin
    for ii := 0 to memo4.lines.Count - 1 do
    begin
      application.ProcessMessages;
      New_str := Copy(memo4.lines[ii], 0, Pos('=', memo4.lines[ii]) - 1);
      Old_str := Copy(memo4.lines[ii], Pos('=', memo4.lines[ii]) + 1, length(memo4.lines[ii]) - Pos('=', memo4.lines[ii]));
      if pos(old_str, memo3.Text) = 0 then
        list.strings[i] := stringreplace(list.Strings[i], Old_str, New_str, [rfReplaceAll, rfIgnoreCase]);
    end;
  end;

  memo1.Text := list.text;

Как сделать так, что бы заменялось, только полное совпадение названия функции

[Stilet]

stringreplace(' '+list.Strings[i]

должно помочь

Р.S. А вообще регулярки тебе в помошь.