Delphi - Como hacer un cronometro.....

Hola a todos........

Tengo un problema que espero me lo respondan pronto, es que voy a programar los metodos de ordenacion burbuja y el shell, y quiero que tenga un cronometro que me marque las centesimas.. para saber que tanto tarda para ordenar cada metodo o sea cual es mas rapido, Que funcion debo usar, o instruccion o que componente etc....

Si me pueden enviar un ejemplo con cronometro por mail estare muy agradeido.........ok

BYE

tal vez puedes utilizar la funcion decodetime y un timer.

Pero como no me puedes hacer un pequeño ejemplo..... Como lo debo declarar.....ok

Please.......

Pones un timer con intervalo de 1 enabled false, un label y un boton
luego esto:
var
hinicio: Tdatetime;
hdiferencia: Tdatetime;
horas,mi,si,msi,ma,sa,msa,m,s,ms: word;

en el evento onclick del boton pones esto:
decodetime(hinicio,horas,mi,si,msi);
hinicio:=now;
timer1.enabled:=true;
y en el evento ontimer del timer pones:
decodetime(time,horas,ma,sa,msa);
decodetime(hdiferencia,horas,m,s,ms);
m:=ma-mi;
s:=ma-si;
ms:=msa-msi;
label1.caption:=inttostr(m)+':'+inttostr(s)+':'+inttostr(ms);

y listo ahi tienes tu cronometro.

Me equivoque :-) en vez de poner:
s:=ma-si;
debes poner:
s:=sa-si;

Me equivoque :-) en vez de poner:
s:=ma-si;
debes poner:
s:=sa-si;