我的代码哪里有问题!!急,一个登陆问题做了好几天了,笨!!

代码如下
procedure TF_login.BitBtn1Click(Sender: TObject);
  var
 flag:boolean;//pass signal
begin
  flag:=false;
  right:=combobox1.ItemIndex;
  logname:=edit1.Text;
  password:=edit2.Text;
  datamodule1.ADOQ_yh .Open ;
   datamodule1.ADOQ_yh.First;
  while not datamodule1.ADOQ_yh.Eof do
  begin
    if (logname=datamodule1.ADOQ_yh.Fields[0].AsString) and (password=datamodule1.ADOQ_yh.Fields[1].AsString)
    and (right=datamodule1.ADOQ_yh.Fields[2].AsInteger) then
  flag:=true;
    datamodule1.ADOQ_yh.Next;  end;
  if flag then
    begin
    F_main.Show;
 datamodule1.adoq_dl.Open;
  datamodule1.adoq_dl.AppendRecord([logname,right,datetimetostr(now)]);
  datamodule1.adoq_dl.Close;
  edit2.Text:='';
    if right=0 then
    begin
    f_main.Show ;
    if right=1 then
    begin
    f_main.Show;
    f_main.bitbtn2.enabled:=false;
    end
    else
   showmessage('输入错误，请重输！');
 end;
我在数据库中的"用户"表中已经存有数据!现在问题是输入什么数据都提示"输入错误请重输"也就是不判断不知是为什么!!
是不是这句有问题呀!请各位指点一个先谢谢了!!
if (logname=datamodule1.ADOQ_yh.Fields[0].AsString) and (password=datamodule1.ADOQ_yh.Fields[1].AsString)