void storeData()
{
  TStream * BlobStream;
  TFileStream * FileStream;

  if (SQLQuery1->Active && OpenDialog2->Execute() )
  {
    if (SQLQuery1->State != dsEdit)
      SQLQuery1->Edit();
    BlobStream=SQLQuery1->CreateBlobStream( SQLQuery1->FieldByName("data"), bmWrite);
    try
    {
      FileStream=new TFileStream(OpenDialog2->FileName, fmOpenRead);
      try
      {
        BlobStream->CopyFrom(FileStream, FileStream->Size);
      }
      __finally
      {
        delete FileStream;
      }
    }
    __finally
    {
      delete BlobStream;
    }
  }
  SQLQuery1->Post();
}