это который в дельфи?
Нашел что-то такое
Private Sub WebView1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
'Change ads to what ever you can to cancel out eg doubleclick
If InStr(1, URL, "ads", vbTextCompare) Then
Cancel = True
Else
Cancel = False
End If
End Sub

Чтобы по словам фильтровать...