Terminates the program with an error dialog System unit
 procedure RunError ( { ExitValue : Integer } ) ;
The RunError procedure forces an abrupt termination of the current application.
Warning : resources cannot be guaranteed to be freed when calling RunError.
Optionally, the ExitCode variable may be set by passing an ExitValue. This code is returned to the application invoker as the return code from the application.
A dialog is displayed showing the ErrorAddr (where the RunError was executed) and ExitCode values.
After RunError executes, the finalization section of the unit is executed before the program actually terminates.
Warning : use only in exceptional circumstances.
Related commands
Break Forces a jump out of a single loop
Exit Exit abruptly from a function or procedure
ExitCode Sets the return code when an application terminates
Goto Forces a jump to a label, regardless of nesting
Halt Terminates the program with an optional dialog
Abort Aborts the current processing with a silent exception
 Author links

 Download this web site as a Windows program.

Example code : Terminate a program with an error dialog
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
  // The System unit does not need to be defined
  Forms, Dialogs;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
Form1: TForm1;
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);

  // Stop the program with exit code 0

  // The following will not be executed
  ShowMessage('We do not get this far');
Hide full unit code
   The program terminates without running the ShowMessage statement. An error dialog is displayed:
   Runtime error    0 at 00452105
Delphi Programming Neil Moffatt 2002 - 2020. All rights reserved.  |  Home Page