直接实现还是不行，自己加了一个编辑中的状态，写了很多的事件。。。
procedure TVerClick(Sender: TObject);
procedure TVerKeyPress(Sender: TObject; var Key: Char);
procedure TVerMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure TVerChanging(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
procedure TVerMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TVerExit(Sender: TObject);
还有启用了一个被保护了的事件
procedure TVerCancelEdit(Sender: TObject; Node: TTreeNode);

但还不是最理想的：单击一个节点即进人编辑
最理想的应该是：
单击一个节点时，如果它不是本来就选中的节点，则仅仅选择它，不进人编辑；如果它本来就是选中的节点，才进人编辑。。。