support for delphi 11.1

contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/SynTaskDialog.pas

@@ -6,7 +6,7 @@ unit SynTaskDialog;
 {
     This file is part of Synopse framework.
 
-    Synopse framework. Copyright (C) 2020 Arnaud Bouchez
+    Synopse framework. Copyright (C) 2022 Arnaud Bouchez
       Synopse Informatique - https://synopse.info
 
   *** BEGIN LICENSE BLOCK *****
@@ -25,7 +25,7 @@ unit SynTaskDialog;
 
   The Initial Developer of the Original Code is Arnaud Bouchez.
 
-  Portions created by the Initial Developer are Copyright (C) 2020
+  Portions created by the Initial Developer are Copyright (C) 2022
   the Initial Developer. All Rights Reserved.
 
   Contributor(s):
@@ -139,8 +139,12 @@ uses
   {$endif}
   {$IFDEF FMX}
   System.UITypes, System.Types, System.UIConsts,
-  FMX.Menus, FMX.Types, FMX.Layouts, FMX.ComboEdit,
-  FMX.Graphics, FMX.Forms, FMX.Controls, FMX.StdCtrls, FMX.ExtCtrls,
+  FMX.Menus, FMX.Types, FMX.Layouts,
+  {$IF (CompilerVersion >= 26.0)}// Delphi XE5 UP
+  FMX.ComboEdit,
+  FMX.Graphics,
+  {$IFEND}
+  FMX.Forms, FMX.Controls, FMX.StdCtrls, FMX.ExtCtrls,
   FMX.ListBox, FMX.Edit, FMX.Objects, FMX.Platform,
   {$IFDEF MSWINDOWS}
   FMX.Platform.Win