Programmabsturz verursachen

[omp]

Bei Detlefs Hinweis zur Endlosschleife dachte ich sofort: ja, das ist es. Klappte aber nicht.

Siehe aber https://stackoverflow.com/questions/...i-applications

Code:

procedure TForm12.Button2Click(Sender: TObject);
begin
  try
    JITEnable := 2;
    raise Exception.Create('Error Message');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;

Oder die zweite Antwort mit

Code:

function Crash