Popupblocker-Code funzt nicht richtig

[Gentleman]

Hi!

Delphi-Quellcode:

procedure TForm1.PopupProof;
var
  X: Integer;
begin
  SavePopupBox.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + 'DATA\popup_save.list');
  for X:= 0 to SaveForm.SavePopupBox.Items.Count - 1 do
    begin
      if pos(Lowercase(SavePopupBox.Items.Strings[X]), lowercase(WebBrowser.LocationURL))<> 0 then
        begin
          Blocking:= False;
        end
      else
       begin
         Blocking:= INI.ReadBool('GENERAL', 'POPUP', True);
       end;
    end;
end;

Diesen Code habe ich mir mal so zusammengebastelt, um zu entscheiden, ob auf einer Seite Popups zugelassen werden oder nicht.

In der "SavePopupBox" stehen Adressen (z.B. http://www.delphipraxis.net), bei denen Popups zugelassen werden sollen. Dann überprüfe ich mit pos, ob der String in dem WebBrowser vorhanden ist. Wenn der String drin enthalten ist, dann wird das Popupblocken ausgeschlatet. Das Problem ist aber, dass es nicht einwandfrei funktioniert. Liegt das an meinem Code? Wenn ja, wie kann ich es richtig machen.

thx im Voraus!

Gruß Gentleman