Capture Cookie

[diegojmap]

I need to capture the cookie of a page, in vcl with WebBrowser:

procedure TFrmxDemo.WebBrowserDocumentComplete (
   Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
   document: IHTMLDocument2;
   cookies: String;
   arq: TextFile;
begin
   document: = WebBrowser.Document as IHTMLDocument2;
   if Assigned (document) then
     DtMdlDemo.vCookie: = document.cookie;

   if Pos ('https://esaj.tjsp.jus.br/push', WebBrowser.LocationURL ) >0 then
     FrmxDemo.Close
   else
     FrmxDemo.Top: = vTop;

end;

In unigui I'm trying to use URLFrame, is there any way I could capture the cookie? Can be with ExtEvents.