APPTYPE CONSOLE y Webbrowser
 

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.

Código Delphi [-]
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.