with self.proc do
      begin
           active:=false;
           parameters.ParamByName('@amt').value:='001';
           active:=true;//当active为true时,下一条语句就会出错的.
           ExecProc;
      end;
错误提示: 
CommandText does not return a result set
连接是没有问题的.