Source position: lcltype.pp line 2586
type TTimerProc = procedure(
hWnd: HWND;
uMsg: UINT;
idEvent: UINT_PTR;
dwTime: DWORD
) of object;