add : TSwitch/TCase & TTerminal.