procedure RaiseLastException  

Вызывает последнюю исключительную ситуацию.

Пример:

try
  ...
except
  ...
  RaiseLastException;
end;