procedure TForm1.vr1FocusChanged(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex);
begin try
selected_node:=node;
selected_col:=Column;
except end;End;