TWebBrowser Download abbrechen

[endeffects]

es klappt einfach nicht, ich such selbst schon
seit stunden im netz und nichts funktioniert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser.Navigate('http://go.winantivirus.com/MTQ1NjY=/2/5390//');
end;

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 
  begin 
    Cancel := True;
    with pDisp as IWebBrowser2 do Stop; 
    Exit; 
  end;
end;