Delphi-PRAXiS - Delphi TWebBrowser Fehler

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