TChromium получение содержимого фрейма

//---------------------------------------------------------------------------
void __fastcall callback(String AContent)
{
    MainForm->AddInfo("---------------------------------");
    MainForm->AddInfo(AContent);
    MainForm->AddInfo("---------------------------------");
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Chromium1BeforeResourceLoad(TObject *Sender, const ICefBrowser *browser,
                    const ICefFrame *frame, const ICefRequest *request, bool Result)
 
{
    if(frame)
    {
        String FrameUrl= (const_cast<ICefRequest*>(request))->Url;
 
        if(IsRegisterPassportUrl(FrameUrl)) // Ищем нужный фрейм ...
         {
             AddInfo("resource "+FrameUrl);
            (const_cast<ICefFrame*>(frame))->GetSourceProc(&callback); /* !!!! */
         }
    }
}
//---------------------------------------------------------------------------

//----------------------------------------------------
class TMyStringVisitor
  : public TCppInterfacedObject<TCefStringVisitorProc>
{
   public:
    virtual void __fastcall Invoke(const ustring str)
    {
      String Answer= ParseAnswer(str);
    }
};
//----------------------------------------------------

//-----------------------------------------------------
void __fastcall TMainForm::Chromium1BeforeResourceLoad(
    TObject *Sender,
    const ICefBrowser *browser,
    const ICefFrame *frame, 
    const ICefRequest *request,
    bool Result)
 
{
  ICefFrame* FrameX= const_cast<ICefFrame*>(frame);
  ICefRequest *RequestX= 
      const_cast<ICefRequest*>(request);
 
   if(FrameX && RequestX)
   {
     if(IsAnswerUrl(RequestX->Url))
     FrameX->GetSourceProc(new TMyStringVisitor);
   }
}
//-------------------------------------------------------

frame->GetSourceProc(new TMyStringVisitor);