anchor.diff:    if (not Terminated) then
     begin
       try
  -      FJob.DoJobProcedure (FProgress);
  +      FJob.DoJobProcedure (FProgress, FJobResult);
       except
         on e:Exception do
         begin
  +        FJobResult.ReturnMessage:= e.Message;
           Application.ShowException(e);
         end;
       end;
  
positive.code:     property CanDieEvent : TSimpleEvent read FCanDieEvent write FCanDieEvent;
      property Jobs : TObjectList read FJobs;
  
      property CallBack : TOnEndCallback read FCallBack write FCallBack;
      property Running : boolean read FRunning;
      {$ifdef lcl}
      property ParentForm: TForm read FParentForm write FParentForm;
  
negative.code:   FreeAndNil(FCanDieEvents);
    FreeAndNil(FJobs);
    FCanStartEvent.Free;
    FreeAndNil(FCurrentJobResults);
    FCanDieEvent.SetEvent;
    inherited Destroy;
  end;
  