diff --git a/fcl/db/sqlite/sqlite3ds.pas b/fcl/db/sqlite/sqlite3ds.pas
index fcb741709e..cfd9164b92 100644
--- a/fcl/db/sqlite/sqlite3ds.pas
+++ b/fcl/db/sqlite/sqlite3ds.pas
@@ -307,8 +307,8 @@ var
   procedure FillStringsAndObjects;
   begin
     while FSqliteReturnId = SQLITE_ROW do
-    begin
-      AStrList.AddObject(StrPas(sqlite3_column_text(vm,0)),TObject(sqlite3_column_int(vm,1)));
+    begin      
+      AStrList.AddObject(StrPas(sqlite3_column_text(vm,0)),TObject(PtrInt(sqlite3_column_int(vm,1))));
       FSqliteReturnId:=sqlite3_step(vm);  
     end;
   end;    
diff --git a/fcl/db/sqlite/sqliteds.pas b/fcl/db/sqlite/sqliteds.pas
index fe21e7b21e..547fce8fd5 100644
--- a/fcl/db/sqlite/sqliteds.pas
+++ b/fcl/db/sqlite/sqliteds.pas
@@ -330,8 +330,8 @@ var
   begin
     while FSqliteReturnId = SQLITE_ROW do
     begin
-      // I know, this code is really dirty!!
-      AStrList.AddObject(StrPas(ColumnValues[0]),TObject(StrToInt(StrPas(ColumnValues[1]))));
+      // I know, this code is really dirty!!      
+      AStrList.AddObject(StrPas(ColumnValues[0]),TObject(PtrInt(StrToInt(StrPas(ColumnValues[1])))));
       FSqliteReturnId:=sqlite_step(vm,@ColCount,@ColumnValues,@ColumnNames);  
     end;
   end;