September 2017 Update

Task/Sort-using-a-custom-comparator/Delphi/sort-using-a-custom-comparator.delphi

@@ -12,6 +12,10 @@ begin
   TArray.Sort<string>(lArray , TDelegatedComparer<string>.Construct(
   function(const Left, Right: string): Integer
   begin
-    Result := Length(Right) - Length(Left);
+    //Returns ('Here', 'are', 'be', 'sample', 'some', 'sorted', 'strings', 'to')
+    //Result := CompareStr(Left, Right);
+
+    //Returns ('are', 'be', 'Here', 'sample', 'some', 'sorted', 'strings', 'to')
+    Result := CompareText(Left, Right);
   end));
 end.