TMemoryStream *MS = new(TMemoryStream);
try
    {
    MS = (TMemoryStream *)((TDMod*)DM)->aspReturnRaschet->CreateBlobStream(((TDMod*)DM)->aspReturnRaschet->FieldByName( "Otchet" ), bmRead);
    if (MS->Size)
        {
        OC->LoadFromStream(MS);
        OC->Iconic = false;
        OC->SizeMode = smAutoSize;
        OC->Run();
        OC->AutoActivate = aaManual;
        OC->DoVerb(ovShow);
        }
    }
__finally
    {
    delete MS;
    }