anchor.diff:      property JobId : integer read FJobId;
       property Description : String read FDescription write FDescription;
       property TrapExceptions : boolean read FTrapExceptions write FTrapExceptions;
  +    property Data : TObject read FData write FData;
     end;
   
     { TmBatchExecutor }
  
positive.code:   FreeAndNil(FCurrentJobResults);
  end;
  
  constructor TControlThread.Create;
  begin
    inherited Create(false);
  
negative.code:   if (not Terminated) then
    begin
      try
        FJob.DoJobProcedure (FProgress, FJob.Data, FJobResult);
        Self.FProgress.Close;
      except
        on e:Exception do
  