Webbrowser Navigate - hängt sich innerhalb des Threads auf

[DataCool]

Hi Leute,

folgende Situation :
Ich habe einen TWebbrowser innerhalb meiner Form, dieser zeigt Werbebanner an, und wird über einen Thread alle 5 Min. aktualisiert.
Im OnDocumentComplete Ereignis des TWebrowsers blende ich die Scrollbleisten aus.

Leider kommt es im Moment öfters vor, das unser Werbeserver im Netz überlatet ist und dadurch ein komisches Verhalten an den Tag gelegt wird :
Das OnDoucmentComplete Ereignis tritt ein, obwohl die Seite noch nicht komplett ist.
Tja und dann hängt mein ganze Anwendung mit 0% CPU Last !
Das Navigate für den Webbrowser wird syncronisiert aus dem Thread aufgerufen.

Hier noch der Code des OnDocumentComplete Ereignisses :

Code:

procedure TfrmMain.WebBannerDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
   tim_Test.Enabled := true;
   try
      WebBanner.OleObject.Document.Body.Style.OverflowX := 'hidden';
      WebBanner.OleObject.Document.Body.Style.OverflowY := 'hidden';      
   except 
      WebBanner.stop;
      WebBanner.Navigate('about:blank');
   end;
   tim_Test.Enabled := false;   
end;

Tim_TEst ist ein Timer mit dem ich versucht habe das ganze wieder einzufangen, geht aber nicht.

Gruß Data