[jachguate]

Esto te dará una idea:

Código Delphi [-]
Begin
  if TreeView1.Selected.Text = 'Listas' Then
    frmListas.ShowModal
  else if TreeView1.Selected.Text = 'Modulos' Then
    frmModulos.ShowModal
  else
    frmGrupos.ShowModal;
end;

Hasta luego.