anchor.diff:    I: Integer;
   begin
     for I := Low(fEventHandlers[aEventType]) to High(fEventHandlers[aEventType]) do
  -    CallEventProc(fEventHandlers[aEventType][I].Handler, aParams);
  +    CallEventProc(fEventHandlers[aEventType][I], aParams);
   end;
   
   
  
positive.code:     procedure CallEventHandlers(aEventType: TKMScriptEventType; const aParams: array of Integer);
      function GetConsoleCommand(const aName: AnsiString): TKMConsoleCommand;
  
      procedure HandleScriptProcCallError(aEx: Exception);
      procedure CallEventProc(const aProc: TMethod; const aIntParams: array of Integer);
      function MethodAssigned(aProc: TMethod): Boolean; overload; inline;
      function MethodAssigned(aEventType: TKMScriptEventType): Boolean; overload; inline;
      function MethodAssigned(const aCmdName: AnsiString): Boolean; overload; inline;
  
negative.code: 
  
  //This procedure allows us to keep the exception handling code in one place
  procedure TKMScriptEvents.HandleScriptProcCallError(aMethod: String);//aEx: Exception);
  var
    ExceptionProc: TPSProcRec;
    InternalProc: TPSInternalProcRec;
  