提示信息：EDatabaseError with message Query:parameter UN not found，该怎么解决？
附源代码：
procedure TFrmLogin.BtnLoginClick(Sender: TObject);
begin
  with DM.query do
  begin
    close;
    sql.clear;
    sql.Add('select * from TB_Users where UserName=：UN and PassWord=:PW');
    Parameters.ParamByName('UN').Value:=CBUserName.Text;
    Parameters.ParamByName('PW').Value:=EDPassWord.Text;
    Open;
    if recordCount<1 then
    begin
        ShowMessage('对不起！用户名或密码错误！');
        Exit;
    end;
    pass:=true;
    self.Close;
  end;
end;

[ 本帖最后由 墟烟 于 2013-5-10 20:27 编辑 ]

procedure TFrmLogin.BtnLoginClick(Sender: TObject);
begin
  with DM.query do
  begin
    close;
    sql.clear;
    sql.Add('select * from TB_Users where UserName=：UN and PassWord=:PW');
    ParamByName('UN').AsString:=CBUserName.Text;
    ParamByName('PW').AsString:=EDPassWord.Text;
    Open;
    if recordCount<1 then
    begin
        ShowMessage('对不起！用户名或密码错误！');
        Exit;
    end;
    pass:=true;
    self.Close;
  end;
end;


或：

procedure TFrmLogin.BtnLoginClick(Sender: TObject);
begin
  with DM.query do
  begin
    close;
    sql.clear;
    sql.Add('select * from TB_Users where UserName='''+CBUserName.Text+''' and PassWord='''+EDPassWord.Text+''');
    Open;
    if recordCount<1 then
    begin
        ShowMessage('对不起！用户名或密码错误！');
        Exit;
    end;
    pass:=true;
    self.Close;
  end;
end;

冒号的问题。

注意中英文输入法！

多谢！