A simple threadpool based timer for Delphi XE2-12.x - currently only implemented for Win32/Win64
FTimer := TThreadPoolTimerFactory.CreateTimer(1000,0,
procedure (context : UIntPtr)
begin
Memo1.Lines.Add(IntToStr(GetTickCount));
end);The callback function can be a procedure, method or anonymous method.
Call the Run or RunOnce methods to star the timer.