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;