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
 
@@ -804,7 +808,7 @@ const
   SQLITE_TESTCTRL_RESERVE             = 14;
   SQLITE_TESTCTRL_OPTIMIZATIONS       = 15;
   SQLITE_TESTCTRL_ISKEYWORD           = 16;
-
+  SQLITE_TESTCTRL_LAST                = 16;
 
 {$IFDEF SQLITE_EXPERIMENTAL}
 function sqlite3_status(op: Integer; var pCurrent: Integer; var pHighwater: Integer; resetFlag: Integer): Integer; cdecl; external sqlite3_lib;

Source/SQLite3Utils.pas

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

Source/SQLite3Wrap.pas

@@ -99,7 +99,7 @@ type
     procedure BindNull(const ParamName: WideString); overload;
     procedure BindBlob(const ParamName: WideString; Data: Pointer; const Size: Integer); overload;
     procedure BindZeroBlob(const ParamName: WideString; const Size: Integer); overload;
-	procedure ClearBindings;
+    procedure ClearBindings;
 
     function Step: Integer;
 
@@ -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;