anchor.diff:    FreeAndNil(FCanDieEvents);
     FreeAndNil(FJobs);
     FCanStartEvent.Free;
  +  FreeAndNil(FCurrentJobResults);
     FCanDieEvent.SetEvent;
     inherited Destroy;
   end;
  
positive.code:   mUtility, mProgress;
  
  type
    TDoJobProcedure = procedure (aProgress: ImProgress) of object;
    TOnEndCallback = procedure of object;
  
    TmJob = class
    strict private
  
negative.code:     FParentForm.Enabled := true;
    end;
    {$endif}
    FCallBack(FCurrentJobResults);
    FreeAndNil(FCurrentJobResults);
  end;
  
  constructor TControlThread.Create;
  