Si bien el TTimer es una opción, creo que para obtener mejor precisión es aconsejable emplear la función GetTickCount. Si no me equivoco, en una o dos ocasiones se habló de ella.
Por ejemplo, este post habla de ello:
http://www.clubdelphi.com/foros/show...t=GetTickCount
Saludos,