TWebBrowser Download abbrechen

[endeffects]

Hallo,

ich hab in meinem aktuellen Projekt eine Instanz
des TWebbrowsers laufen und möchte den Download
einer bestimmten Datei abbrechen. Die if Bedingung
wird auch erfüllt - so nebenbei, es handelt sich
hier nur um eine optimierte pos() variante - aber
der TWebbrowser öffnet trotz meiner Abbruchversuche
den Downloaddialog der exe Datei und genau den
möchte ich nicht haben. Ich könnte echt verzweifeln. =(

Delphi-Quellcode:

procedure TForm1.WebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
if SmartPos('.exe', URL, False, 1, True) > 0 then
  WebBrowser.Stop;
end;