In unit sysutils
sysutils
Get tick count (64-bit).
function GetTickCount64: QWord
GetTickCount64
An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.