procedure RaiseLastException
Вызывает последнюю исключительную ситуацию.
Пример:
try ... except ... RaiseLastException; end;