anchor.diff:  
     TKMUnitArray = array of TKMUnit;
   
  -  TKMUnitAction = class
  +  TKMUnitAction = class abstract
     protected
       fType: TKMUnitActionType;
       fUnit: TKMUnit;
  
positive.code:   end;
  
  
    TKMUnit = class
    protected //Accessible for child classes
      fUID: Integer; //unique unit ID, used for save/load to sync to
      fType: TKMUnitType;
  
negative.code: 
    TKMTaskResult = (trTaskContinues, trTaskDone); //There's no difference between Done and Aborted
  
    TKMUnitTask = class abstract
    protected
      fType: TKMUnitTaskType;
      fUnit: TKMUnit; //Unit who's performing the Task
  