[Raskolnikov]

Так и будет.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case TreeView1.Selected.Index of
    0: ShowMessage('xp');
    1: ShowMessage('7');
    2: ShowMessage('nt');
  end;
end;

Вместо ShowMessage - свой код, что тебе там нужно сделать. Но работает только в том случае, если элементы описаны именно в таком порядке: xp, 7, nt. Если порядок заранее неизвестен, то придется проверять свойство TreeView1.Selected.Text, но тут уже тип string и придется использовать несколько if.