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