很诡异的错误

Question

if radiobutton2.Checked then
begin
     adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[count].Name:='s1';
        adodataset1.Parameters[count].DataType:=ftstring;
        adodataset1.Parameters[count].Direction:=pdinput;
        adodataset1.Parameters[count].Value:=edit1.Text;
  if not adodataset1.Locate('names',edit1.Text,[]) then
        begin
          showmessage('没有这个名称，请重新输入');
         count:=count+1;
          initiate;
        end
      else
        begin
          adodataset1.Close;
          adodataset1.CommandText:='select  * from save where id=:s0 and names=:s1 ';
          initiate;
          count:=count+1;
  
        end;
end;
s0也跟s1同样得赋值
点击查询第一次可以成功
再点就出现至少一个参数没有被指定值得提示
帮忙
另请问 adodataset1.Parameters[count]，是否可以这样用，我的意思是能不能增加couｎt的值以添加