Calling SQLite query inside Inno Setup (update db on application uninstall)

function sqlite3_open(DBName: PAnsiChar; var DB: Integer): Integer;
  external 'sqlite3_open@files:sqlite3.dll stdcall';

function sqlite3_exec(DB: Integer; SQL: String; Callback, Arg, ErrMsg: Integer): Integer;
  external 'sqlite3_exec@files:sqlite3.dll stdcall';

function sqlite3_close(DB: Integer): Integer;
  external 'sqlite3_close@files:sqlite3.dll stdcall';

procedure ExecuteSQLQuery(DatabasePath: string; ServiceId: string);
var
  SQLQuery: string;
  Res: Integer;
begin
  MsgBox(DatabasePath, mbInformation, MB_OK);  
  if sqlite3_open(PAnsiChar(AnsiString(DatabasePath)), SQLiteDB) <> 0 then // 0 = OK
  begin
    MsgBox('Failed to open database!', mbError, MB_OK);
    Exit;
  end;

  SQLQuery := 'DELETE FROM Settings WHERE ServiceId = ''' + ServiceId + ''';';
  MsgBox(SQLQuery, mbInformation, MB_OK);

  MsgBox('Executing query', mbInformation, MB_OK);
  Res := sqlite3_exec(SQLiteDB, SQLQuery, 0, 0, 0);
  if Res <> 0 then
    MsgBox('Error executing DELETE query!', mbError, MB_OK)
  else
    MsgBox('Record deleted!', mbInformation, MB_OK);

  // Close database
  sqlite3_close(SQLiteDB);
end;

function RunSQLiteCommand(const dbPath: String; const sqlQuery: String): Boolean;
var
  ResultCode: Integer;
  Command: String;
begin
  // Construct the command to run sqlite3.exe with the desired SQL query
  Command := '"' + ExpandConstant('{app}\sqlite3.exe') + '" "' + dbPath + '" "' + sqlQuery + '"';
  MsgBox(Command,mbInformation, MB_OK);
  // Execute the command and get the result
  Exec(Command, '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;