uses
  OtlParallel, OtlTask, OtlTaskControl;

// кинуть на кнопку
var PrimeCount: integer;
    FWorker  : IOmniParallelLoop<integer>;
begin
 PrimeCount:=0;
 FWorker:=Parallel.ForEach(1, 10)
 .NoWait
// .OnTaskCreate(
// )
 .OnStop(
      procedure (const task: IOmniTask)
      begin
        task.Invoke(
          procedure begin
            FWorker := nil;
            Sleep(10);
            Log(PrimeCount);
          end
        );
      end
  );
 FWorker.Execute(
    procedure (const value: integer)
    begin
     Sleep(1);
     //if IsPrime(value) then
      Inc(PrimeCount);
    end
 );
 //ShowMessage(IntToStr(PrimeCount));