TTreeView Selektierung in Abhängigkeit von Objekt

[Furtbichler]

Eine TreeView, drei Nodes ('A', 'B', 'C')... Alles außer B darf selektiert werden

Delphi-Quellcode:

procedure TForm3.TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  N : TTreeNode;

  begin
  N := TreeView.GetNodeAt(X,Y);
  if assigned (N) then
      N.Selected := (N.Text <> 'B');
end;

Edit: TreeView.Multiselect := True;