TMemoryStream *stream = new TMemoryStream();
    TBlobField *blob = (TBlobField*)Q->FieldByName("test_str_blob");
    try
    {
      AnsiString str = Edit1->Text;
      stream->WriteBuffer(&str,str.Length());

      int Size = stream->Size;
      if (Size > NULL)
      {
         stream->Position =  0 ;
         blob->LoadFromStream(stream);
      }
      Q->Post();
    }
    catch (...)
    {
      ShowMessage("Err cant insert into blob field");
    }
    delete stream;

TMemoryStream * stream = new TMemoryStream();
   TBlobField *blob = (TBlobField*)Q->FieldByName("test_str_blob");
   try
   {
     blob->SaveToStream(stream);
     int Size = stream->Size;
     if (Size > NULL)
     {
        stream->Seek( 0 , 0 );

       AnsiString str;
       stream->ReadBuffer(&str,Size);  //  не фига не выходит :((
       Edit1->Text = str;
     }
   }
   catch(...)
   {
     ShowMessage("no data");
   }
   stream->Free();

 JS 

 JS