Source position: lcltype.pp line 2698
type TTimerProc = procedure(
hWnd: HWND;
uMsg: LongWord;
idEvent: PtrUInt;
dwTime: DWORD
);