txt := edtCompany.Text;
  ADOCommand1.Connection := ADOConnection1;
  with ADOCommand1 do begin
    CommandText:='update table set ...';
    CommandType:=cmdText;
    Parameters.ParamByName('compname').Value:=txt;
    Execute;
  end;
  node := mainTree.Items.//这边如何更新,如同添加是Add(..),AddChildObject(..)