* hookproc alias, delphi compat

git-svn-id: trunk@5768 -

rtl/win/wininc/redef.inc

@@ -30,6 +30,7 @@ type
   TFNThreadStartRoutine = FARPROC;
   TFNTimerAPCRoutine    = FARPROC;
   TFNFiberStartRoutine  = FARPROC;
+  TFNHookProc =  HOOKPROC;
 
   PObjectTypeList = ^TObjectTypeList;
   _OBJECT_TYPE_LIST = record