procedure TForm1.FormCreate(Sender: TObject);
var
  node,currentnode:TTreenode;
begin
  treeview1.Items.add(treeview1.Selected,'办公室人员');
  currentnode:=treeview1.Items.Item[0];
  treeview1.Items.AddChild(currentnode,trim('王八'));
  node:=treeview1.Items.Item[0];
end;