Division durch Null mit unterschiedlichen Ergebnissen

[Stevie]

Zu deiner Ausgangssituation: einfach ne Exception selber erzeugen und raisen.

Delphi-Quellcode:

begin
  raise EDivByZero.Create('Meine Test Exception');
  Application.ProcessMessages;
  Application.Initialize;
end.

[himitsu]

oder in Kurz

Delphi-Quellcode:

begin
  System.Error(reDivByZero);    // System. , weil es noch in ERROR in Windows gibt 
  Application.ProcessMessages;  // und diese Unit oftmals mit eingebunden ist
  Application.Initialize;
end.