diff --git a/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas b/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
index a92316c22..7c380054d 100644
--- a/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
+++ b/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
@@ -105,7 +105,11 @@ procedure dec( var F:Single; D:Single ); overload;
   F := F-D;
 end;
 
+{$IF (CompilerVersion >= 28)}   //TButton, TLabel inherit from TPresentedTextControl since XE8
+function FMXMeasureText( s:string; C : TPresentedTextControl; MaxWidth : Single; WordWrap : boolean ):TRectF;
+{$ELSE}
 function FMXMeasureText( s:string; C : TTextControl; MaxWidth : Single; WordWrap : boolean ):TRectF;
+{$IFEND}
 var
   R : TRectF;
 begin
@@ -117,3 +121,7 @@ function FMXMeasureText( s:string; C : TTextControl; MaxWidth : Single; WordWrap
   C.Canvas.MeasureText( R, s, WordWrap, [], TTextAlign.Leading, TTextAlign.Leading );
   Result := R;
 end;
+
+
+
+