[NumLock]

Сообщение от angvelem

Для API, вполне нормальный (и правильный) код завершения.

в API нет Halt!!!
зато есть:
ExitProcess

Halt procedure
Initiates abnormal termination of a program.
Unit
System
Category
flow control routines
Delphi syntax:
procedure Halt [ ( Exitcode: Integer) ];
Description
Halt performs an abnormal termination of a program and returns to the operating system.

ну и на закуску:

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// ExitProcess(0);
// Halt;
end;

угадай, что не понравиться VCL?

разговор дальше на эту тему считаю оффтопом...