APPTYPE CONSOLE y Webbrowser

[deneus]

Hola mi nombre es Deneus me gustaría peguntar si alguno puede ver como hacer que funcione este código y se pueda ejecutar el evento: Browser.OnDocumentComplete.
Gracias de antemano.


program SpeedTest2;

{$APPTYPE CONSOLE}

uses
SysUtils, SHDocVw, ActiveX;


type
TClass = class(TWebBrowser)
Browser: TWebbrowser;


procedure WebBrowserDocumentComplete(ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant);



end;

var
WebDataText:string;


procedure TClass.WebBrowserDocumentComplete(ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant);
begin

writeln('Document compled');
// writeln(WebDataText);
end;



begin
CoInitialize(nil);

with TClass.Create(nil) do begin

Browser := TWebBrowser.Create(nil);

Browser.OnDocumentComplete := WebBrowserDocumentComplete;
Browser.Navigate('poner aquí una URL');


// sleep(5000);
// WebDataText:= Browser.OleObject.Document.body.outerHTML;


writeln('cargando...');


readln;

//Browser.Free;
end;

OleUninitialize;
end.