Процедура RunError

Останавливает выполнение программы.

Объявление:

Procedure RunError [ ( Errorcode : Byte ) ];

Замечание:

Генерирует ошибку во время выполнения программы с данным номером в текущем операторе.

Пример:

Begin
  {$IFDEF Debug}
    If P=NIL Then RunError(204);
  {$ENDIF}
  End.