BCB中ADOStoredProc控件的使用,该怎么解决

BCB中ADOStoredProc控件的使用
看了一些帖子，终于有点会用这个控件了。
http://bbs.****.net/topics/390439689
但是遇到一个很奇怪的情况，请看我的代码：

        //实现出库存储过程

        this->ADOStoredProcStockOut->Close();

        this->ADOStoredProcStockOut->ProcedureName="dbo.SP_DIStoreMatrPickByBarcode";

        this->ADOStoredProcStockOut->Parameters->Refresh();

        this->ADOStoredProcStockOut->Parameters->ParamByName("@Barcode")->Value=BatchEdit1->Text;

        this->ADOStoredProcStockOut->Parameters->ParamByName("@PickTo")->Value="车间";

        this->ADOStoredProcStockOut->Parameters->ParamByName("@PickFor")->Value="车间生产";

        this->ADOStoredProcStockOut->Parameters->ParamByName("@WO")->Value="";

        this->ADOStoredProcStockOut->Parameters->ParamByName("@StockType")->Value="纸卷";

        this->ADOStoredProcStockOut->Prepared=true;

        this->ADOStoredProcStockOut->ExecProc();

        AnsiString Msg=this->ADOStoredProcStockOut->Parameters->ParamByName("@ReturnMsg")->Value;

提示：这个函数需要参数@ReturnMsg，但未提供这个参数。
请问怎么解决这个问题。
------解决方案--------------------
ADOStoredProcStockOut->Parameters->CreateParameter("@ReturnMsg",ftString,pdOutPut,10,NULL);

加这个参数 ， 返回值也要和input一样，创建参数的。