TStringList *Temp = new TStringList();
        Temp->LoadFromFile(OpenDialog->FileName);

        String SQLstr;
        Query->Close();
        Query->SQL->Clear();
        SQLstr= "INSERT INTO temp (doc)" 
         " VALUES (:doc1)" ;
        Query->SQL->Add(SQLstr);

        TMemoryStream *St=new TMemoryStream;
        Temp->SaveToStream(St);
        delete Temp;

        Query->ParamByName( "doc1" )->ParamType=ptInput;
        Query->ParamByName( "doc1" )->LoadFromStream(St,ftBlob);
        delete St;

        Query->ExecSQL();

       Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add( "SELECT doc FROM temp where id=1 ;");
        Query->Open();

        if (!((TBlobField*)(Query->FieldByName( "doc" )))->IsNull)
        {
                TBlobStream *BS = new TBlobStream((TBlobField*)Query->FieldByName( "doc" ),bmRead);
                TStringList *Temp = new TStringList();
                Temp->LoadFromStream(BS);
                delete BS;

                Temp->SaveToFile( "D:\\workdocs\\1 .rtf");
                delete Temp;
        }