TWebBrowser < undefinierter Bezeichner

[endeffects]

hallo,
danke für die antwort, die variante 2 hatte ich auch schon ausprobiert,
allerdings bekomm ich dann folgende Fehlermeldung:

Zitat:

Inkompatible Typen: TwebBroswserDocumentComplete und procedure, untyped pointer
or untyped parameter.

Delphi-Quellcode:

type
  TMyThreads = class(TThread)
  private
    { Private-Deklarationen }
    ...
    procedure Submit();
    ...
  protected
    procedure Execute; override;
  ...
  end;

implementation

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

procedure TMyThreads.Submit;
  // Compiler-Fehler: Unbekannte Anweisung: 'OleObject'.
  OleObject.document.forms.item(0).elements.item('q').value:='test';
  OleObject.Document.Forms.item(0).submit;
end;