anchor.diff:      'Other', 'SysExc', 'Single step', 'Breakpoint', 
       'Process Start', 'Process Terminated', 'Thread Start', 'Thread Terminate', 'SysCall');
   begin
  -  if not Assigned(Target) then
  +  if not Assigned(ADebugger) then
     begin
       writeln('no process to debug (internal error?)');
       Exit;
  
positive.code:   end;
  end;
  
  procedure RunLoop(ATarget: TDbgMain);
  begin
    try
      uDebugger:=ATarget;
      DoRunLoop(ATarget);
    except
    end;
  end;
  
negative.code:   end;
  
  
  procedure RunLoop(ADebugger: TDbgMain);
  
  {type
    TEventHandler = procedure (Process: TDbgTarget; Event : TDbgEvent) of object;
  