The Windows API GetTickCount function returns the number of milliseconds since the system (computer) was started. The simplest example follows:
var
Start, Stop, ElapsedMilliseconds: cardinal;
begin
Start := GetTickCount;
// do something that requires measurement
Stop := GetTickCount;
...
