t:=GetTickCount; //haces lo que quieras cronometrar t:=GetTickCount-t; //ahora tenemos en t los milisengundos transcurridos