Thread-safe FloatToSQLStr; StepAndReset -> func

Examples/Lazarus/main.lfm

@@ -7,7 +7,7 @@ object Form_Main: TForm_Main
   ClientHeight = 396
   ClientWidth = 657
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.0.12.0'
   object Memo_Result: TMemo
     Left = 154
     Height = 396

Examples/Lazarus/main.pas

@@ -42,7 +42,8 @@ begin
   // Delete database if it already exists
   DeleteFile('artists.db');
 
-  // Create datatbase and fill it with example data
+  // Create database and fill it with example data
+  Screen.Cursor := crHourGlass;
   DB := TSQLite3Database.Create;
   try
     DB.Open('artists.db');
@@ -170,8 +171,11 @@ begin
     finally
       Stmt.Free;
     end;
+
+    ShowMessage('Database created.');
   finally
     DB.Free;
+    Screen.Cursor := crDefault;
   end;
 end;