Строка из TCppWebBrowser

// Функцию поместить в событие TCppWebBrowser :
// CppWebBrowser1DocumentComplete,
// после полной загрузки страницы
// в Memo будет исходник страницы
 
#include <mshtml.h>
...
void __fastcall TForm1::GetHTMLCode ( TCppWebBrowser *WebBrowser, TMemo *SourceMemo )
{
  SourceMemo -> Lines -> Clear ();
  TMemoryStream* pMemoryStream = new TMemoryStream();
  IStream *pIStream;
  HGLOBAL hGlobal;
  IPersistStreamInit *psi;
  const int Size = 0x100000;
 
  if ( WebBrowser -> Document == NULL ) return;
    hGlobal = GlobalAlloc ( GPTR, Size );
  if ( 0 == hGlobal ) {
    ShowMessage ( "GlobalAlloc Error" );
    return;
  }
 
  OleCheck ( CreateStreamOnHGlobal ( hGlobal, true, &pIStream ) );
  try {
    OleCheck ( WebBrowser -> Document -> QueryInterface (
               __uuidof( IPersistStreamInit ), 
               ( void ** ) /*ψ*/ /* здесь - греческий символ psi ψ - */
               /* в код его можно вставить */
               /* копированием из таблицы символов */
               ));
    try {
      OleCheck ( psi -> Save ( pIStream, false ) );
      pMemoryStream -> SetSize ( Size );
      CopyMemory ( pMemoryStream -> Memory, hGlobal, Size );
    }
    __finally {
      delete psi;
    }
  }
  __finally {
   delete pIStream;
  }
  SourceMemo -> Lines -> LoadFromStream ( pMemoryStream );
}

OleCheck(WebBrowser->Document->QueryInterface(__uuidof( IPersistStreamInit ),( void ** )));

OleCheck(WebBrowser->Document->QueryInterface(__uuidof(IPersistStreamInit,void **)));

OleCheck(WebBrowser->Document->QueryInterface(__uuidof((IPersistStreamInit),(void **))));

( void ** ) ψ /*ψ*/ /* здесь - греческий символ psi ψ - */
               /* в код его можно вставить */
               /* копированием из таблицы символов */

int error = 0;
    TStringList *asd = new TStringList;
 
    //IdHTTP1->ConnectTimeout = 2000; // "Time out" Это я убрал потому что ошибки. Эту манипуляциею можно сделать и другими способами
    try
    {
        asd->Text = IdHTTP1->Get("http://site.ru/file.txt");
    }
    catch(...)
    {
        error++;
    }
 
    if(asd->Text.Length() > 1 && error == 0)
    {
        Memo1->Text = asd->Text;
        delete asd;
    }
    else
    {
        delete asd;
        ShowMessage("Bad connect...");
    }