procedure Halt(ExitCode: Integer);

Процедура Halt сразу прерывает работу приложения, не давая ему возможности "убрать за собой". Windows NT автоматически освобождает все ресурсы, которые использовались приложением, но Windows 95 и Windows 98 не столь снисходительны. Применяйте эту процедуру Halt только в особых ситуациях, например, для обработки критических ошибок.
Halt не является настоящей процедурой.

• Halt сохраняет свой аргумент в глобальной переменной ExitCode.
  
• Если ErrorAddr не равна nil, Halt выдает сообщение об ошибке перед завершением программы.
  
• Перед завершением программы исполняются процедура ExitProc и разделы завершения модулей.
  
• Поцедура Halt, закрывая программу, не освобождает все объекты и формы. Для завершения графического приложение следует закрыть главную форму, а не вызывать процедуру Halt.

// Сообщает об ошибке времени выполнения по указанному адресу.
procedure ReportError(ErrorCode:  Integer;   Addr:  Pointer);
begin
  ErrorAddr := Addr;
  if ErrorAddr <> nil then
    ErrorProc(ErrorCode, Addr);
  Halt(ErrorCode);
end;