anchor.diff:      property CanDieEvent : TSimpleEvent read FCanDieEvent write FCanDieEvent;
       property Jobs : TObjectList read FJobs;
   
  -    property CallBack : TOnEndCallback read FCallBack write FCallBack;
  +    property CallBack : TOnEndJobCallback read FCallBack write FCallBack;
       property Running : boolean read FRunning;
       {$ifdef lcl}
       property ParentForm: TForm read FParentForm write FParentForm;
  
positive.code:     FJobs : TObjectList;
      FThreads : TObjectList;
      FCanDieEvents : TObjectList;
      FCallBack : TOnEndCallback;
      FRunning : boolean;
      {$ifdef lcl}
      FParentForm: TForm;
      {$endif}
  
negative.code:   Result.FJobId:= GetControlThread(Self).Jobs.Count;
  end;
  
  procedure TmBatchExecutor.Execute({$ifdef lcl}aParentForm : TForm;{$endif}aCallBack : TOnEndJobCallback);
  begin
    if GetControlThread(Self).Running then
      exit;
  