{ tell the debugger about the raise of a non-Delphi exception }
{$IFNDEF LINUX}
procedure NotifyNonDelphiException;
asm
CMP BYTE PTR DebugHook,0
JE @@1
PUSH EAX
PUSH EAX
PUSH EDX
PUSH ESP
PUSH 2
PUSH cContinuable
PUSH cNonDelphiException
CALL RaiseExceptionProc
ADD ESP,8
POP EAX
@@1:
end;
{$ENDIF}

system.pas, ADD一行...