Возможно ли организовать бинарный поиск в двусвязном списке?

  procedure SetList(First, last: integer);
  var
    list: TStringList;
    i: integer;
  begin
    list := TStringList.Create;
    try
      list.Sorted := True;
      list.Duplicates := dupIgnore;
      for i := First to last do
        list.Add(Lines[i]); // происходит заполнение данных с сортировкой, дубликаты игнорируются
    finally
      list.Free;
    end;
  end;

  procedure QuickSetList(First, last: integer);
  var
    dInt: array of integer; // хранятся индексы по возростанию списка list
 
    function Find(const str: string; out index: integer): boolean;
    var
      l, r, i: integer;
      CompareRes: PtrInt;
    begin
      Result := False;
      // используется бинарный поиск
      l := 0;
      r := dCnt - 1;
      while (l <= r) do
      begin
        i := l + (r - l) div 2;
        CompareRes := AnsiCompareStr(str, list[dInt[i]]);
        if (CompareRes > 0) then
          l := i + 1
        else
        begin
          r := i - 1;
          if (CompareRes = 0) then
          begin
            Result := True;
            l := i;
          end;
        end;
      end;
      index := l;
    end;
 
  var
    i, j, index: integer;
    curStr: string;
    list: TStringList;
  begin
    list := TStringList.Create;
    try
      SetLength(dInt, Lines.Count);
      try
        i := First;
        while i <= last do
        begin
          curStr := Lines[i];
          if (curStr = '') or not Find(curStr, index) then // если в списке не найден, то происходит вставка на свое место по возростанию. Дубликат игнорируется.
          begin
            Inc(dCnt);
            list.Add(curStr);
            j := dCnt - 1;
            while j > index do // все что ниже смещается на 1.
            begin
              dInt[j] := dInt[j - 1];
              Inc(j, -1);
            end;
            dInt[index] := dCnt - 1;
          end;
          Inc(i);
        end;
      finally
        Finalize(dInt);
      end;
    finally
      list.Free;
    end;
  end;

  list := TStringList.Create;
  try
    list.Sorted := True;
    list.Duplicates := dupIgnore;
    list.Assign(L);
  finally
    list.Free;
  end;
выполняется 4:51

          for i := First+1 to last do
          begin
            if L[i] = L[i-1] then ;
          end;
выполняется 2:55