数据库中的记录通过treeview进行显示，在treeview中选择一条记录，然后点击删除按钮，希望的效果是treeview和数据库中的数据同时删除。下面的代码为什么不能实现这个功能呢？请各位前辈给予指点一下，谢谢！！
procedure Tyhglform.BitBtn2Click(Sender: TObject);
var
  rt:integer;
  tmpQuery:TQuery;
  selected:string;
begin
   selected:=treeview1.Items.Item[treeview1.selected.absoluteindex].Text;
   if (selected=username) then
      begin
        Application.MessageBox('不能删除当前系统用户！','系统提醒',mb_ok);
        exit;
        end
   else
   begin
      rt:=Messagedlg('你确定要删除用户'+selected+'?',mtwarning,[mbyes,mbno],0);
      if rt=mrno then
         exit
     else
      begin
       tmpQuery:=TQuery.Create(self);
       tmpquery.DatabaseName:='xxgl';
       tmpQuery.SQL.Clear;
       tmpQuery.SQL.Add('delete * from operator');
       tmpQuery.SQL.Add('where name='''+TLabel(TreeView1.Selected.data).Caption+'''');
       tmpQuery.ExecSQL;
       TreeView1.Selected.Delete;
       tmpQuery.Free;
      end;
  end;
end;