adoquery.Close;
      adoquery.Parameters[0].asboolean:=(TreeView1.Selected.Text='True');
      adoquery.Open;