Problem mit Typ-Inkompatibilität

[TiGü]

Aus Winapi.MMSystem:

Delphi-Quellcode:

  TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; 
    dwUser, dw1, dw2: DWORD_PTR) stdcall;

function timeSetEvent(uDelay, uResolution: UINT;
  lpFunction: TFNTimeCallBack; dwUser: DWORD_PTR; uFlags: UINT): MMRESULT; stdcall;

Aus Winapi.Windows:

Delphi-Quellcode:

 
ULONG_PTR = NativeUInt;
DWORD_PTR = ULONG_PTR;

Ich wette, das FWindowHandle als ein unsigned 32-Bit Integer definiert ist (z.B. LongWord, Cardinal, UINT).
Ändere die Definition und es sollte gehen:
FWindowHandle: THandle;

EDIT:
Außerdem musst du die Definition der Callback von  dwUser, dw1, dw2: DWORD auf  dwUser, dw1, dw2: DWORD_PTR ändern!