procedure TForm1.BitBtn1Click(Sender: TObject);
var
  username,password:string;
begin
  adoquery_login.Close;
  adoquery_login.SQL.Clear;
  adoquery_login.SQL.Add('select * from Operator');
  adoquery_login.Open;
  if adoquery_login.RecordCount>0 then
    begin
     adoquery_login.First;
     username:=adoquery_login.FieldValues['name'];
     password:=adoquery_login.fieldvalues['pwd'];
     if (trim(username)=trim(edit2.Text) and (trim(password)=trim(edit3.Text)) then
........................
报错信息:incompatible types:'string' and 'boolean' 不知道是什么问题