总是提示 filed 'wid' not found

function SqlServer(Txtusername:string;TxtEnName:string):boolean;
var
   SelectSqlServer:string;
   f_flag,t_flag:boolean;
   DuiBiSQL:string;
   BenDiSql:string;begin      f_flag:=false;
      t_flag:=true;
      SelectSqlServer:='select * from userName where usernames='+#39+Txtusername+#39;
      //showmessage(SelectSqlServer);
      form1.ADOQuery2.Close;
      form1.ADOQuery2.SQL.Clear;
      form1.ADOQuery2.SQL.Add(SelectSqlServer);
      form1.ADOQuery2.open;
      if(form1.adotable2.RecordCount>0) then
      begin
          DuiBiSQL:='select * from vname where username='+#39+Txtusername+#39;
          //showmessage('sss');
          form1.ADOQuery1.Close;
          form1.ADOQuery1.SQL.Clear;
          form1.ADOQuery1.SQL.Add(DuiBiSQL);
          form1.ADOQuery1.open;
          if(form1.ADOQuery1.RecordCount<1) then
          begin
         //SqlServer:=TxtName;
          BenDiSql:='insert into vname(username,TxtEnName) values("'+Txtusername+'","'+TxtEnName+'")';
          form1.ADOQuery1.Close;
          form1.ADOQuery1.SQL;
          form1.ADOQuery1.SQL.Add(BenDiSql);
          form1.ADOQuery1.ExecSQL;
          SqlServer:=f_flag;
          ;end
          else
          begin
          SqlServer:=t_flag;
          end
      ;end
      else
      begin
      SqlServer:=t_flag;
      end;end;