procedure CalculateRes;
var                           
  Results: Array of Integer;

begin
  SetLength(Results, 100);
  ParallelFor(Low(Results), High(Results),
    procedure(I: Integer)             //\
    begin                             // \  code block
      Results[I] := Calculate(I);     // /   used as parameter
    end                               ///
  );
  // use results
end.

- https://play.google.com/store/apps/details?id=com.delphiapplications.delphiexamples

@UzGeeksGroup - O'zbek dasturchilari UzGeeks Community'ning rasmiy guruhi;
@texnomanuz - Texnoman.uz saytining rasmiy guruhi;
@DelphiUzbekistan - O'zbekistonlik Delphi dasturchilarining guruhi;
@PyComUz - O'zbekistonlik Python dasturchilarining guruhi;
@php_uz - O'zbekistonlik PHP dasturchilarining guruhi;
@uzdev - O'zbekistonlik dasturchilarining guruhi(asosan rus tilida);
@wordpress_developers - O'zbek Wordpress dasturchilarining guruhi;

Source Code : https://github.com/FMXExpress/Trolledge