procedure Test(method: (m_Exit, m_TerminateScript));
begin
  case method of
    m_Exit:
    begin
      WriteLn('Using Exit!');
      Exit;
    end;
    m_TerminateScript:
    begin
      WriteLn('Using TerminateScript!');
      TerminateScript;
    end;
  end;
end;

begin
  ClearDebug;
  Test(m_Exit);
  WriteLn('Exit used.');
  Test(m_TerminateScript);
  WriteLn('TerminateScript used.');
end.