Pascal/Turbo Pascal - WINCRT puntajes

Necesito ayuda con un proyecto para la Universidad. Porfavor si alguien sabe ayudeme. Estoy usando WINCRT. En un solo procedimiento necesito lo siguiente: controlar el tiempo que dura un cliente consumiendo un producto. Si lo consume en menos del tiempo asignado hay q otorgar 5 puntos, si es = al tiempo 3 puntos y si es mayo ningun punto.

Lo que no se es como controlar el tiempo, o como crear como una cuenta regresiva. Estoy usando un archivo de 10 posiciones. Que guarda. Nombre y puntaje. Si alguien tiene alguna idea....

Muchas gracias de antemano

Hola Miguel! Si utilizas la unit DOS, puedes usar el procedimiento GetTime para obtener la hora actual del sistema... si a su vez tienes guardada la hora de comienzo, al ejecutar este procedimiento puedes hacer un cálculo del tiempo transcurrido y verificar los puntos que se le asignarán.

Puedes ser más específico y quizá pueda darte una ayuda más clara... un abrazo!

Hola :
Si utilizas la unit DOS, puedes usar el procedimiento GetTime para obtener la hora actual del sistema... si a su vez tienes guardada la hora de comienzo, al ejecutar este procedimiento puedes hacer un cálculo del tiempo transcurrido y verificar los puntos que se le asignarán