FreePascal / Lazarus implementation of Google Authenticator compatible TOTPs