Так и будет.
Код:
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.