Pascal - Funzione migliore di delay,problemi cronometro

Ciao a tutti!Sono nuovo del forum e volevo sapere se in pascal esiste una funzione piu accurata(e precisa ) della delay(x:word).
Mi sono imbattuto in questo problema in un progetto di cronometro-count-down...
Grazie in anticipo!

Ciao!

In pascal esiste la funzione GetTime, nella libreria dos.
Essa richiede 4 variabili word, dove verrà salvata l' ora corrente.

Ecco un esempio:

program esempio;
uses dos;

var h,m,s,cs:word;

begin
 GetTime(h,m,s,cs);
 writeln('Sono le ore ',h,':',m,':',s,'.',cs);
 readln;
end.

In dev pascal se includi la unit windows hai la funzione getticketcount
msdn.microsoft.com/en-us/library/…
in pratica la chiami al momento dello start e salvi il valore di ritorno, e la richiami al momento dello stop. Ha come ritorno il tempo in millisecondi
G.

Se usi il freepascal, esiste la classe TDateTime, per gestire i calcoli temporali:

delphibasics.co.uk/…

Ma cosa c'è di più preciso ci delay?
Se devi usare una funzione di arresto del sistema delay, per me è la migliore, puoi arrestare il sistema con una precisione al millesimo di secondo, l'unico problema è che se devi far aspettare il sistema per un ora, metti un sacco di zeri. Ma è anche vero che se devi far arrestare il sistema per un'ora, l'esecuzione diventa troppo lunga.
Quindi, a meno che non vuoi la funzine di arresto del sistema, non devi mettere una pausa di un'ora e vuoi una pausa di precisione al decimo di millesimo di secondo, "delay(Pausa in MSec)" è la migliore.