谁能帮我解释一下运行时 list index out of bounds(0)这句语句的意思

我的代码如下
 with dm2.query1 do
 begin
 close;
 sql.clear;
 sql.add('select * from 用户表1');
 sql.add('where 用户名=:usename');
 sql.add('and 密码=:password');
 parambyname('usename').Asstring:=edit1.text;
 parambyname('password').AsString:=edit2.Text;
 prepare;
 open; end;
 if dm2.query1.recordcount>0 then
 begin
 user_type:=dm2.Query1.fieldbyname('用户类型').asstring;
 name:=dm2.Query1.fieldbyname('用户名').asstring;
 with dm2.StoredProc1 do
  begin
   params[0].AsString:=name;
   params[1].AsString:=user_type;
   params[2].AsString:='用户登陆';
   prepare;
   execproc;
   end;
  edit3.Text:=name;
  edit4.Text:=user_type;
  showmessage('登录成功!');
  end
  else  showmessage('登录失败,请重新登录!');
  end;