TWebBrowser Fehler

[Gehstock]

bekomme bim meinen Programm welches den TBrowser verwendet öfters mal ein fenster siehe anhang

ich vermute er kann dann z.B. ein Banner nicht laden

wie kann ich das beheben

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, StdCtrls, OleCtrls, SHDocVw, ExtCtrls;

type
  TWMHotkey = record
    Msg: Cardinal;
    idHotKey: Word;
    Modifiers: Integer;
    VirtKey: Integer;
  end;


const ID = $FF;
      vot= $EE;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    ToolBar1: TToolBar;
    ProgressBar1: TProgressBar;
    Vote: TButton;
    Timer1: TTimer;
    Button2: TButton;
    TrackBar1: TTrackBar;
    Label3: TLabel;
    ToolButton1: TToolButton;
    Button1: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure VoteClick(Sender: TObject);
    procedure WebBrowser1ProgressChange(ASender: TObject; Progress, ProgressMax: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
    procedure WMHotKeyc(var Msg: TWMHotKey); Message WM_HOTKEY;
    procedure Start;
  private
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  X,y,c,v:Integer;
  ok: longbool;
implementation

{$R *.dfm}

procedure TForm1.WMHotKeyc(Var Msg: TWMHotkey);
begin
  case Msg.IdHotKey of
    ID: Close;//Programm beenden
    //Code entfernt
  end;
  inherited;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
   //Code entfernt
end;


procedure TForm1.TrackBar1Change(Sender: TObject);
var  //Mausclick geschwindigkeit ändern
a:string;
begin
Timer1.Interval:=TrackBar1.Position;
a:='  Click Rate = '+inttostr(TrackBar1.Position-3001);
delete(a,16,1);  //negatives Vorzeichen entfernen
Label3.caption:=a;
end;

procedure TForm1.VoteClick(Sender: TObject);
begin
     Start; //prozedur "Start" ausführen
   end;

procedure TForm1.start;
begin
//Code entfernt
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
webBrowser1.Navigate('//Code entfernt');  //die Internetseite
X:= 300; Y:=150;  //startposition Mauszeiger
c:=0;   //Anzahl der clicks
//Code entfernt
ok:=RegisterHotKey(Form1.Handle, ID, MOD_Alt, Ord('Q')); //Hotkey Programm beenden
//Code entfernt
  if not ok then
  ok:=RegisterHotKey(Form1.Handle, ID+1, MOD_control, vk_f1); //alternativer Hotkey Programm beenden
end;


procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
//Code entfernt
end;

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,  ProgressMax: Integer);
begin            //Ladestatus der Internetseiten anzeigen
  if Progress>0 then
  begin
     ProgressBar1.Max := ProgressMax;
  ProgressBar1.Position := Progress;
  end
  else
    ProgressBar1.Position := 0
end;


end.

so siehts aus