¿Hay una rutina rápida GetToken para Delphi?

performance - ¿Cómo lo hace AQTime?