aq1->Close();
  aq1->SQL->Clear();
  aq1->SQL->Add("SELECT img FROM imag WHERE i_id=2");
  aq1->Open();
  TBlobField * b;
  b= (TBlobField*)aq1->Fields->Fields[ 0 ];
  TMemoryStream * ms=new TMemoryStream();
  b->SaveToStream(ms);
  ms->Seek( 0 , 0 );
   TJPEGImage  * jpg=new TJPEGImage();
    Graphics::TBitmap * bmp=new Graphics::TBitmap();
    bmp->LoadFromStream(ms);
    jpg->LoadFromStream(ms);
  try
  {
       Image2->Picture->Assign(jpg);
  }
  catch(...)
  {

      try
      {
         Image2->Picture->Assign(bmp);
      }
      catch(...)
      {
        return;
      }
  }

 try
  {
       Image2->Picture->Assign(jpg);
  }

char Buf[ 3 ];
ms->Read(Buf, 3 );
ShowMessage(Buf);