Update all new Tasks

Task/Closures-Value-capture/Delphi/closures-value-capture.delphi

@@ -0,0 +1,19 @@
+program Project1;
+
+type
+  TFuncIntResult = reference to function : integer;
+
+var
+  Funcs : array [0..9] of TFuncIntResult;
+  i : integer;
+
+begin
+  // Create 10 anonymous functions
+  for i := Low(Funcs) to High(Funcs) do
+    Funcs[i] := function() : integer begin Result := i*i; end;
+
+  // call all 10 functions
+  for i := Low(Funcs) to High(Funcs) do
+    writeln( Funcs[i]() );
+
+end.