It works om my laptop win10 but not on second laptop also win10, delay is simply not followed ...have you the same version of lazarus and fpc on the two laptops? 32 bits ? 64 bits ?
GetTickCount (deprecated)
Get tick count (32-bit, deprecated)
Declaration
Source position: sysutilh.inc line 28
function GetTickCount: LongWord;
Description
GetTickCount returns an increasing clock tick count in milliseconds. It is useful for time measurements, but no assumptions should be made as to the interval between the ticks. This function is provided for Delphi compatibility, use GetTickCount64 instead.
GetTickCount64
Get tick count (64-bit)
Declaration
Source position: sysutilh.inc line 29
function GetTickCount64: QWord;
Description
GetTickCount64 returns an increasing clock tick count in milliseconds. It is useful for time measurements, but no assumptions should be made as to the interval between the ticks.