Не могу найти ошибку в функции

procedure TForm1.ReplaceTDblClick(Sender: TObject);
var
  I, j: Integer;
  vr, vr2 : string;
  SL: TStringList;
begin
  vr2:= ReplaceT.Cells[ReplaceT.Col, ReplaceT.Row];
  if vr2 <> '' then
  begin
    if ReplaceT.Col = 0 then
    begin
      if ReplaceT.Cells[1, ReplaceT.Row] = '' then
      begin
        MyMinuss.Lines.Add(vr2);
        DeleteARow(ReplaceT, ReplaceT.Row);
        ClearingS([MyMinuss], KeyCollector, Poisk, 4, SovT.Position, DlSovT.Position, MinDlSlovT.Position, ClearChisloC.Checked, false, true, false, true, LoadBar2);
      end
    end;
  end;
end;
 
procedure TForm1.ClearingS(Memo: array of TMemo; Memo2: TMemo; SG: TStringGrid;
  col, sov, DlSov, MinDlSlov: integer; ccc, posorcomp, cutordel, clearornot, formlist: boolean; TP: TProgressBar);
var i, j, k, n, r, prev_i: integer;
  vr, vr2, vrnew: string;
  SL, SL2, SLS : TStringList;
  num, next: boolean;
begin
 
  SL := TStringList.Create;
  SL2 := TStringList.Create;
  SL.Text := '';
  SL.Sorted := true;
  SL.Duplicates := dupIgnore;
  SL2.Text := Memo2.Text;
 
 
  for I := 0 to Length(Memo) - 1 do
    SL.Text := SL.Text + Memo[I].Text; //единый список чистки
 
  i := SL2.Count - 1;
  while i <> 0 do
  begin
    next := false;
    prev_i:=i;
    vr := SL2.Strings[i];
    r:=wasstrfullT2(vr, SG, col, 0, SG.RowCount-1);
    SLS := TStringList.Create;
    SLS.Text := StringReplace( vr, ' ', #13#10, [rfReplaceAll]); //фраза из списка
 
    if ccc then
      j := SLS.count - 1;
      while j >= 0 do
      begin
        vr2 := SLS.Strings[j];
        num := true;
        try
          n := StrToInt(vr2);
        except
          num := false;
        end;
        if num then
        begin
          SLS.Delete(j);
          if cutordel then
          begin
            SG.Cells[5, r] := '0';
            SL2.Delete(i);
            dec(i);
            next := true;
            FreeAndNil(SLS);
          end;
        end;
        dec(j);
      end;
 
    vrnew := ListToStr(SLS);
 
    if AnsiCompareText(vr, vrnew) <> 0 then
    begin
      SG.Cells[col, r] := vrnew;
      SL2.Strings[i] := vrnew;
      if cutordel then
      begin
        SG.Cells[5, r] := '0';
        SL2.Delete(i);
        dec(i);
        next := true;
        FreeAndNil(SLS);
      end;
    end;
 
    if not next then
    begin
      if posorcomp then
      begin
        j := SLS.count - 1;
        while j >= 0 do
        begin
          vr2 := SLS.Strings[j];
          for k := 0 to SL.Count - 1 do
          begin
            if AnsiCompareText(vr2, SL[k])=0 then
            begin
              SLS.Delete(j);
              if cutordel then
              begin
                SG.Cells[5, r] := '0';
                SL2.Delete(i);
                dec(i);
                next := true;
                FreeAndNil(SLS);
              end;
              break;
            end;
          end;
          if next then
            break;
          dec(j);
        end;
      end
      else
      begin
        j := SLS.count - 1;
        while j >= 0 do
        begin
          vr2 := SLS.Strings[j];
          for k := 0 to SL.Count - 1 do
          begin
            if Pohozhest(vr2, SL[k], sov, MinDlSlov) then
            begin
              SLS.Delete(j);
              if cutordel then
              begin
                SG.Cells[5, r] := '0';
                SL2.Delete(i);
                dec(i);
                next := true;
                FreeAndNil(SLS);
              end;
              break;
            end;
          end;
          if next then
            break;
          dec(j);
        end;
      end;
 
      vrnew := ListToStr(SLS);
      if AnsiCompareText(vr, vrnew) <> 0 then
      begin
        r:=wasstrfullT2(vr, SG, col, 0, SG.RowCount-1);
        SL2.Strings[i] := vrnew;
        SG.Cells[col, r] := vrnew;
        if cutordel then
        begin
          SG.Cells[5, r] := '0';
          SL2.Delete(i);
          dec(i);
          FreeAndNil(SLS);
        end;
      end;
    end;
 
    FreeAndNil(SLS);
    TP.Position := SL2.Count - 1 - i;
    TP.Max := SL2.Count - 1;
    if i mod 2 = 0 then
    begin
      Memo2.Text := SL2.Text;
      Application.ProcessMessages;
    end;
    if prev_i = i then
      dec(i);
    //ShowMessage(inttostr(i));
  end;
 
  if not clearornot then
  begin
    while i <= SL2.Count - 1 do
    begin
      vr := SL2.Strings[i];
      if vr = '' then
        SL2.Delete(i)
      else
      begin
        if vr.length < 3 then
          SL2.Delete(i)
        else
        begin
          vr := DelSpace(vr);
          if (vr = '') or (Slov(vr) = 1) then
          begin
            SL2.Delete(i);
          end
          else
          begin
            SL2.Strings[i] := vr;
            inc(i);
          end;
        end;
      end;
    end;
    for i := 0 to SG.RowCount - 1 do
    begin
      vr := SG.Cells[col, i];
      if vr = '' then
        SG.Cells[5, i] := '0'
      else
      begin
        if vr.length < 3 then
          SG.Cells[5, i] := '0'
        else
        begin
          vr := DelSpace(vr);
          if (vr = '') or (Slov(vr) = 1) then
            SG.Cells[5, i] := '0'
          else
          begin
            SG.Cells[col, i] := vr;
          end;
        end;
      end;
    end;
  end;
  Memo2.Text := SL2.Text;
  FreeAndNil(SL);
  FreeAndNil(SL2);
end;