SQLITE_STATIC -> SQLITE_TRANSIENT in BindText()

Source/SQLite3.pas

@@ -30,6 +30,10 @@
 }
 unit SQLite3;
 
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
 { $DEFINE SQLITE_DEPRECATED}              // Enable deprecated functions
 { $DEFINE SQLITE_EXPERIMENTAL}            // Enable experimental functions
 

Source/SQLite3Utils.pas

@@ -29,6 +29,10 @@
 }
 unit SQLite3Utils;
 
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
 {$WARN SYMBOL_DEPRECATED OFF}
 
 interface

Source/SQLite3Wrap.pas

@@ -295,7 +295,7 @@ var
 begin
   S := StrToUTF8(Value);
   FOwnerDatabase.Check(
-    sqlite3_bind_text(FHandle, ParamIndex, PAnsiChar(S), Length(S), SQLITE_STATIC)
+    sqlite3_bind_text(FHandle, ParamIndex, PAnsiChar(S), Length(S), SQLITE_TRANSIENT)
   );
 end;