程序无法运行，弹出对话框说from子语句有问题

Question

代码如下，请各位大虾帮忙找找错误！
procedure TForm2.Button1Click(Sender: TObject);
 var
  name,pass,sqlstr:string;begin
  begin
        if(Length(trim(edit1.text))>0)or( Length(trim(edit2.text))>0)then
          begin  sqlstr:='select username,password from user where (username='''+edit1.text+''')and (password='''+edit2.text+''')';      adoquery1.close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add(sqlstr);
      adoquery1.Open;
      name:=trim(Edit1.Text);
      pass:=trim(Edit2.Text);
       if adoquery1.RecordCount>0 then
             begin              adoquery1.Close;
              adoquery1.sql.Clear;
              adoquery1.sql.Add(sqlstr);
              adoquery1.ExecSQL;
              Form3.Show;
              Form2.Hide;             end
           else
             begin
              ShowMessage('请确认登录的用户名和密码是否正确！');
               edit1.setfocus;
               edit1.selectall;
             end;
          end
        else
         begin
          ShowMessage('请确认登录的用户名和密码！');
          edit1.setfocus;
           edit1.selectall;
          end;
      end;end;procedure TForm2.Button2Click(Sender: TObject);
begin
Close;end;end.

Answer 1

password 和 user 加中括弧试试看
select username,[password] from [user] where (username='''+edit1.text+''')and ([password]='''

Answer 2

user是关键字,用方括号括起来,如:
[user]