#include "Uxtheme.h"
#include "tmschema.h"
...
 OpenThemeData(BitBtn1->Handle, WideString("Button"));

var
  v: Variant;
  HTMLDocument: IHTMLDocument2;
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := HTMLString; // this is your html string
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
  HTMLDocument.Close;
  ...
end;

    IHTMLDocument2 iht = CppWebBrowser1->Document;

//---------------------------------------------------------------------------
void __fastcall TFormMain::FormCreate(TObject *Sender)
{
 TVariant URL;
 URL="about:blank";
 CppWebBrowser->Navigate2(&URL, NULL, NULL, NULL, NULL);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::ShowHTML(AnsiString &html, TCppWebBrowser *pBrowser)
{
    IHTMLDocument2 *pHTMLDocument = NULL;

//    TVariant URL;//Если это ставить здесь, грузится только 1 раз
//    URL="about:blank";
//    pBrowser->Navigate2(&URL, NULL, NULL, NULL, NULL);


    if (SUCCEEDED(pBrowser->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&pHTMLDocument)))
    {
        if(pHTMLDocument!= NULL )
        {
            int Bounds[2] = {0,0};
            IHTMLElementCollection *pAll = NULL;
            Variant v = VarArrayCreate(Bounds, 1, varVariant);
            v.PutElement(html, 0);
            pHTMLDocument->clear();
            pHTMLDocument->write(PSafeArray(v.VArray));
            pHTMLDocument->close();
            pHTMLDocument->Release();
        }
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a1,a2,b1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Edit1->a1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
Edit2->a2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1Click(TObject *Sender)
{
b=a1+a2;
Label1->Caption="Result:" + String (b);
}
//---------------------------------------------------------------------------

char pname[20];
DWORD r;
HANDLE hDisk;
strcpy(pname, "\\\\.\\E:"); // E - буква диска
hDisk=CreateFile(pname, GENERIC_READ|GENERIC_WRITE, FILE_SHARE_READ|FILE_SHARE_WRITE, NULL, OPEN_EXISTING, 0, NULL);

DeviceIoControl(hDisk,IOCTL_STORAGE_EJECT_MEDIA,NULL,0,NULL,0,&r,NULL); //или IOCTL_STORAGE_LOAD_MEDIA чтобы закрыть


CloseHandle(hDisk);

#include <papi.h>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ...
  if( PAPI_start_counters(events, 4) != PAPI_OK )
  { 
      ShowMessage("Error With PAPI_flops");
      return;
  }
  ...
}