请问我这段delphi程序错在什么地方？

其中CanLogin和UserPower是定义在public的变量。
出现的错误是，不管怎么输入用户名和密码，都出现messagebox提示输入错误。

procedure TFormLogin.ButtonLoginOKClick(Sender: TObject);
begin
with ADOQueryUsers do
begin
Close;
SQL.Clear;
SQL.Add('select * from Users where 姓名=:姓名 and 密码=:密码 and 类型=:类型');
Parameters.ParamByName('姓名').Value:=EditUsername.Text;
Parameters.ParamByName('密码').Value:=EditPassword.Text;
Open;
if RecordCount=0 then
begin
Application.MessageBox('您的输入有误，请重新输入！','错误',MB_OK);
CanLogin:=false;
end
else
begin
UserPower:=Parameters.ParamValues['类型'];
CanLogin:=true;
FormLogin.Close;
end;
end;
end;

这个比较急用啊，请大家帮帮忙，谢谢！！

请问我这段delphi程序错在什么地方？ 这段DELPHI代码错在哪 这段程序哪里错了？Delphi的 请问这段程序错在哪里？ 请问这段VB程序错在哪?? 这段ASP程序错在哪 这段程序错在哪？VB 这段程序错在哪了? 奇怪，这段程序错在何处？ 急！请问我的Delphi程序出了什么问题？