1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure idv;
asm
  xor eax, eax
  idiv eax
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  idv;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  idv;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure stack;
asm
  push eax
  call stack
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  stack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  stack;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure stack;
asm
  call stack
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  stack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  stack;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TCustomForm.DoCreate;
begin
  if Assigned(FOnCreate) then
  try
    FOnCreate(Self);
  except
    if not HandleCreateException then
      raise;
  end;
  if fsVisible in FFormState then Visible := True;
end;

procedure TWinControl.MainWndProc(var Message: TMessage);
begin
  try
    try
      WindowProc(Message); // über die WindowProc wird dann auch OnClick ausgelöst
    finally
      FreeDeviceContexts;
      FreeMemoryContexts;
    end;
  except
    Application.HandleException(Self);
  end;
end;					

1:
2:
3:
4:
5:

function TCustomForm.HandleCreateException: Boolean;
begin
  Application.HandleException(Self);
  Result := True;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TApplication.HandleException(Sender: TObject);
begin
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  if ExceptObject is Exception then
  begin
    if not (ExceptObject is EAbort) then
      if Assigned(FOnException) then
        FOnException(Sender, Exception(ExceptObject))
      else
        ShowException(Exception(ExceptObject));
  end else
    SysUtils.ShowException(ExceptObject, ExceptAddr);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1} 
{$MINSTACKSIZE $00004000} 
{$MAXSTACKSIZE $00100000} 
{$IMAGEBASE $00400000} 
{$APPTYPE GUI} 
{$WARN SYMBOL_DEPRECATED ON} 
{$WARN SYMBOL_LIBRARY ON} 
{$WARN SYMBOL_PLATFORM ON} 
{$WARN SYMBOL_EXPERIMENTAL ON}
{$WARN UNIT_LIBRARY ON} 
{$WARN UNIT_PLATFORM ON} 
{$WARN UNIT_DEPRECATED ON} 
{$WARN UNIT_EXPERIMENTAL ON} 
{$WARN HRESULT_COMPAT ON} 
{$WARN HIDING_MEMBER ON} 
{$WARN HIDDEN_VIRTUAL ON} 
{$WARN GARBAGE ON} 
{$WARN BOUNDS_ERROR ON} 
{$WARN ZERO_NIL_COMPAT ON} 
{$WARN STRING_CONST_TRUNCED ON} 
{$WARN FOR_LOOP_VAR_VARPAR ON} 
{$WARN TYPED_CONST_VARPAR ON} 
{$WARN ASG_TO_TYPED_CONST ON} 
{$WARN CASE_LABEL_RANGE ON} 
{$WARN FOR_VARIABLE ON}  
{$WARN CONSTRUCTING_ABSTRACT ON} 
{$WARN COMPARISON_FALSE ON} 
{$WARN COMPARISON_TRUE ON} 
{$WARN COMPARING_SIGNED_UNSIGNED ON} 
{$WARN COMBINING_SIGNED_UNSIGNED ON} 
{$WARN UNSUPPORTED_CONSTRUCT ON} 
{$WARN FILE_OPEN ON} 
{$WARN FILE_OPEN_UNITSRC ON} 
{$WARN BAD_GLOBAL_SYMBOL ON} 
{$WARN DUPLICATE_CTOR_DTOR ON}  
{$WARN INVALID_DIRECTIVE ON} 
{$WARN PACKAGE_NO_LINK ON} 
{$WARN PACKAGED_THREADVAR ON} 
{$WARN IMPLICIT_IMPORT ON} 
{$WARN HPPEMIT_IGNORED ON} 
{$WARN NO_RETVAL ON} 
{$WARN USE_BEFORE_DEF ON} 
{$WARN FOR_LOOP_VAR_UNDEF ON} 
{$WARN UNIT_NAME_MISMATCH ON} 
{$WARN NO_CFG_FILE_FOUND ON}  
{$WARN MESSAGE_DIRECTIVE ON} 
{$WARN IMPLICIT_VARIANTS ON} 
{$WARN UNICODE_TO_LOCALE ON} 
{$WARN LOCALE_TO_UNICODE ON} 
{$WARN IMAGEBASE_MULTIPLE ON} 
{$WARN SUSPICIOUS_TYPECAST ON} 
{$WARN PRIVATE_PROPACCESSOR ON} 
{$WARN UNSAFE_TYPE OFF} 
{$WARN UNSAFE_CODE OFF} 
{$WARN UNSAFE_CAST OFF} 
{$WARN OPTION_TRUNCATED ON} 
{$WARN WIDECHAR_REDUCED ON} 
{$WARN DUPLICATES_IGNORED ON}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure stack;
asm
  push eax
  call stack
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    stack
  except
    MessageBox(0,'test',nil,0);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var overflow: boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    overflow := false;
    stack;
  except
    overflow := true;
  end;
  if overflow then
    MessageBox(0,'Stackoverflow',nil,0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

void stack()
{
  __asm {
    push 0x00
    call stack
  }
}

int _tmain(int argc, _TCHAR* argv[])
{
  __try {
    stack();
  } __except (EXCEPTION_EXECUTE_HANDLER) {
    MessageBoxA(0, "Test", "Fehler", 0);
  }

  return 0;
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

00411435 89 65 E8         mov         dword ptr [ebp-18h],esp  // aktuellen Stack-Pointer speichern
    18:   __try {
00411438 C7 45 FC 00 00 00 00 mov         dword ptr [ebp-4],0 
    19:     stack();
0041143F E8 11 FC FF FF   call        stack (411055h) 
    20:   } __except (EXCEPTION_EXECUTE_HANDLER) {
00411444 C7 45 FC FE FF FF FF mov         dword ptr [ebp-4],0FFFFFFFEh 
0041144B EB 2D            jmp         $LN6+27h (41147Ah) 
$LN5:
0041144D B8 01 00 00 00   mov         eax,1 
$LN7:
00411452 C3               ret              
$LN6:
00411453 8B 65 E8         mov         esp,dword ptr [ebp-18h]  // Stack-Pointer wiederherstellen
    21:     MessageBoxA(0, "Test", "Fehler", 0);
00411456 8B F4            mov         esi,esp 
00411458 6A 00            push        0    
0041145A 68 44 56 41 00   push        offset string "Fehler" (415644h) 
0041145F 68 3C 56 41 00   push        offset string "Test" (41563Ch) 
00411464 6A 00            push        0    
00411466 FF 15 38 83 41 00 call        dword ptr [__imp__MessageBoxA@16 (418338h)] 
0041146C 3B F4            cmp         esi,esp 
0041146E E8 CD FC FF FF   call        @ILT+315(__RTC_CheckEsp) (411140h) 
    22:   }
00411473 C7 45 FC FE FF FF FF mov         dword ptr [ebp-4],0FFFFFFFEh 
    23: 
    24:   return 0;