var vTime, vTime1, vTime2: double; begin vTime1 := GetTickCount(); vTime2 := GetTickCount(); vTime := (vTime2 - vTime1) / 1000; Showmessage(floatToStr(vTime) + 's'); end;
Referência [link]
- Como o delphi encontra a diferença entre duas vezes em segundos?-comunidade CSDN