procedure TForm1.BtnDoubleUrlClick(Sender: TObject);
// Поиск повторяющихся Url
var i: integer;
    List: TStringList;
begin
  List := TStringList.Create;
  for i := 0 to ListView.Items.Count - 1 do
    if List.IndexOf(ListView.Items[i]) = -1
      then List.Add(ListView.Items[i])
      else begin
             ListView.Items[i].Selected := true;
           end;
  List.Free;
end;

procedure TForm1.BtnDoubleUrlClick(Sender: TObject);
// Поиск повторяющихся Url
var i: integer;
    List: TList;
begin
  List := TList.Create;
  for i := 0 to ListView.Items.Count - 1 do
    if List.IndexOf(Pointer(ListView.Items[i]) = -1
      then List.Add(Pointer(ListView.Items[i])
      else begin
             ListView.Items[i].Selected := true;
           end;
  List.Free;
end;