typedef struct {
  unsigned short int bits;                     /* length in bits of modulus */
  unsigned char modulus[MAX_RSA_MODULUS_LEN];  /* modulus */
  unsigned char exponent[MAX_RSA_MODULUS_LEN]; /* public exponent */
} R_RSA_PUBLIC_KEY;
......
R_RSA_PUBLIC_KEY Public;

 TBlobStream *bs;
 int Size=sizeof(Public);
 //bs = Table1->CreateBlobStream(Table1->FieldByName("OPENKEY"), bmReadWrite);
 bs = new TBlobStream((TBlobField *)Table1->FieldByName("OPENKEY"), bmWrite);
 bs->Write(&Public,Size);
 bs->Position=0;
 delete bs;

 TBlobStream *bs;
 //bs= Form1->Table1->CreateBlobStream(Form1->Table1->FieldByName("OPENKEY"), bmRead);
 bs = new TBlobStream((TBlobField *)Form1->Table1->FieldByName("OPENKEY"), bmRead);
 unsigned Size=bs->Size;
 bs->Read(&Public,Size);
 delete bs;