function Tfrmlogin.VerifyAccount: Boolean;
var
  str:string;
begin
  Result:= False;
  with ADOQuery1 do
  begin

            close;
            sql.Clear;
            str:='select * from userinfo where (username=:a and userpassword=:b and usertype=:c)';
            sql.Add(str);
            adoquery1.Parameters.ParseSQL(ADOQuery1 .SQL.Text, true);
            Parameters.ParamByName('a').Value:=Trim(RzEdit1.Text);
            
            Parameters.ParamByName('b').Value:=Trim(RzEdit2.Text);

            Parameters.ParamByName('c').Value:=Trim(RzComboBox1.Text);

            open;
            first;
           end;

  if ADOQuery1.RecordCount > 0 then ModalResult := mrOk;


  Result := ModalResult = mrOk;
end;

运行提示：第一行‘：’附近有语法错误。到底在哪里呀，大家帮忙给看看

编译时没有问题，运行时有问题的，单步运行到open时就有问题。
代码本来是这样的
function Tfrmlogin.VerifyAccount: Boolean;
var
  str:string;
begin
  Result:= False;
  with ADOQuery1 do
  begin

            close;
            sql.Clear;
            str:='select * from userinfo where (username=:a and userpassword=:b and usertype=:c)';
            sql.Add(str);
            Parameters.ParamByName('a').Value:=Trim(RzEdit1.Text);
            Parameters.ParamByName('b').Value:=Trim(RzEdit2.Text);
            Parameters.ParamByName('c').Value:=Trim(RzComboBox1.Text);
            open;
            first;
           end;
  if ADOQuery1.RecordCount > 0 then ModalResult := mrOk;
  Result := ModalResult = mrOk;
end;
 运行错误提示为：‘adoquery1:parameter 'a' not found’
后来查资料料说是因为参数读到的是中文，就加上了adoquery1.Parameters.ParseSQL(ADOQuery1 .SQL.Text, true);
问题就变成上面那个了，麻烦给指点一下

这样声明function VerifyAccount: Boolean; 对吗？

真是非常感谢您这么热心，可是还是不行的，我试试别的方法吧！