TWebBrowser < undefinierter Bezeichner

[emploi]

Also ich kann mir zwar nicht vorstellen das es davon abhängig ist,
aber weise mal dem OnDocumentComplete direkt nach dem erzeugen
deiner Submit Methode zu. Vielleicht geht das ja

Ansonsten könnte es auch passieren das das laden der seite länger dauert...

Code:

procedure TMyThreads.Execute; 
var WebBrowser: TWebBrowser; 
    i:integer; 
begin 
  OleInitialize(nil); 
  WebBrowser:= TWebBrowser.Create(nil); 
  with WebBrowser do 
    try 
      Navigate('http://www.google.com'); 
      Fstatus:= 'Connecting to http://google.com'; 
      Synchronize(UpdateLVCaption); 
      OnDocumentComplete:= Submit; 
    except 
      FreeAndNil(WebBrowser); 
      OleUninitialize; 
    end; 
  Fstatus:= 'finished.'; 
  Synchronize(UpdateLVCaption); 
end; 

procedure TMyThreads.Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); 
begin 
// Tritt leider nie ein ************************** 
  showmessage('Submit fired'); 
//************************************************ 
  (Sender As TWebBrowser).OleObject.document.forms.item(0).elements.item('q').value:='test'; 
  (Sender As TWebBrowser).OleObject.Document.Forms.item(0).submit; 
  FreeAndNil(Sender); 
  OleUninitialize; 
end;

... und er das FreeAndNil eher aufruft bevor das Ereignis überhaupt auftreten kann!

Hab leider momentan keine zeit, bin immer nur mal sporadisch am pc.
werd mir das morgen mal angucken wennes bis dahin nicht gelöst hast!

mfg emploi

[edit]
ich seh grad der Basic war ja schneller mit der antwort
[/edit]