L := TStringList.Create;
    L.Text := WebBrowser1.OleObject.Document.documentElement.innerText;
    For i := 0 to L.Count -1 do begin
       S := UpperCase( L.Strings[ i ] );
       If Copy( S, 1, Length( 'inetnum:' ) ) = UpperCase( 'inetnum:' ) Then
         Memo1.Lines.Add(S);