diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp
index bc07c47360..fe88dddae0 100644
--- a/lcl/interfaces/qt/qtint.pp
+++ b/lcl/interfaces/qt/qtint.pp
@@ -166,7 +166,12 @@ begin
     if not QVariant_IsNull(v) and QVariant_isValid(V) then
     begin
       //Write('Got a valid variant .. ');
-      QtWg := TQtWidget(PtrInt(QVariant_toUint(V, @Ok)));
+{$IFDEF CPU32}
+      QtWg := TQtWidget(QVariant_toUint(V, @Ok));
+{$ENDIF}
+{$IFDEF CPU64}
+      QtWg := TQtWidget(QVariant_toULongLong(V, @Ok));
+{$ENDIF}
       if OK then
       begin
         //Write('Converted successfully, Control=');