一応以下の感じで格納出来ますた。
次にUNICODE文字列をselect出来るか確かめなくちゃ。
wchar_t wt[256];
_wcspcpy(wt, L"あ あ あ");
IBQuery1->Close();
IBQuery1->SQL->Text = "insert into NTEST values (:ID,:NAME);";
IBQuery1->Prepare();
IBQuery1->ParamByName("ID")->AsInteger = iID;
Param = IBQuery1->ParamByName("NAME");
Param->SetBlobData(wt, 10);
IBQuery1->ExecSQL();