Der Debugger bleibt erst hier stehen
Code:
procedure TWinControl.MainWndProc(var Message: TMessage);
begin
try
try
WindowProc(Message);
finally
FreeDeviceContexts;
FreeMemoryContexts;
end;
except
[B]Application.HandleException(Self)[/B];
end;
end;
dann hier
Code:
procedure RaiseLastOSError(LastError: Integer; const AdditionalInfo: string); overload;
var
Error: EOSError;
begin
if LastError <> 0 then
Error := EOSError.CreateResFmt(@SOSError, [LastError, SysErrorMessage(LastError), AdditionalInfo])
else
Error := EOSError.CreateRes(@SUnkOSError);
Error.ErrorCode := LastError;
raise Error;
end;