Надо в событие onStart добатить вывод счётчика времени:
hiTimeCounter.pas писал(а):
implementation
procedure THITimeCounter._work_doStart0;
begin
FCounter := timeGetTime;
_hi_CreateEvent(_Data,@_event_onStart,integer(FCounter));
end;
procedure THITimeCounter._work_doStart1;
var cnt:int64;
begin
QueryPerformanceCounter(sp);
QueryPerformanceFrequency(cnt);
cnt := cnt div 1000000;
_hi_CreateEvent(_Data,@_event_onStart,integer(sp div cnt));
end;