C++ Builder`WriteComponentResFile`

```cpp
// 
void SaveFormToDatabase(TForm* Form, TDatabase* Database)
{
    // 
    TResourceStream* ResStream = new TResourceStream(HInstance, MAKEINTRESOURCE(101));

    try
    {
        // 
        Form->WriteComponentResFile(ResStream);

        // 
        TBlobField* BlobField = new TBlobField(NULL, ftBlob);
        BlobField->LoadFromStream(ResStream);
        Database->TableDefs->Add('FRME', BlobField);
    }
    __finally
    {
        delete ResStream;
    }
}

// 
void LoadFormFromDatabase(TForm* Form, TDatabase* Database)
{
    // 
    TBlobField* BlobField = dynamic_cast<TBlobField*>(Database->TableDefs->FindField('FRME'));
    if (BlobField != NULL)