Hola nam..
Si no querés usar OnClick usa OnChange.
Código Delphi
[-]
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case TreeView1.Selected.index of
0: LlamarFuncion0;
1: LlamarFuncion1;
2: LlamarFuncion2;
end;
end;
Si no, disculpáme pero no entiendo lo que buscas.
Saludos.