StoredProc组件的小问题

后台数据是sql server 2000
在程序中写如下代码：运行过程中会提示参数无效
指定了两个参数一个是@input_uid，一个是@output_popedom这个是输出参数
   StoredProc1.StoredProcName :='dbo.get_popedom;1';
   
   StoredProc1.ParamByName('@input_uid').ParamType :=ptInput;
   StoredProc1.ParamByName('@input_uid').DataType :=ftString;   StoredProc1.ParamByName('@output_popedom').ParamType :=ptOutput;
   StoredProc1.ParamByName('@output_popedom').DataType :=ftString;   StoredProc1.ParamByName('@input_uid').AsString :=str_uid;
   StoredProc1.Prepare;
   StoredProc1.ExecProc;
   str_popedom :=StoredProc1.ParamByName('@output_popedom').AsString;
   StoredProc1.Close;