比较两个值为什么无效啊？

Question

我在登陆表单中加入一个DBComboBox1、Edit2存放用户名和密码，下面是Button1上的代码，为什么运行时我对应的是dsa与aa却不执行此语句呢。procedure TForm2.Button1Click(Sender: TObject);
begin
if (DBComboBox1.Text='dsa')and(Edit2.Text='aa') THEN
   close
end;end.请帮手，TKS！

Answer 1

procedure TForm2.Button1Click(Sender: TObject);
begin
if (DBComboBox1.Text='dsa')and(Edit2.Text='aa') THEN
   close//此处最好加个“；”。
end;end.

Answer 2

procedure TForm2.Button1Click(Sender: TObject);
begin
if (trim(DBComboBox1.Text)='dsa')and(trim(Edit2.Text)='aa') THEN
   close
end;