обработчики добавления и удаления в дерево (TreeView)

[postal2]

procedure TForm2.TTreeViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (ssleft in shift) then
  if allowedweapon.GetNodeAt(x,y)<>nil then
    showmessage(allowedweapon.GetNodeAt(x,y).Text);
end;