Глобальный хук апи функций - первый вызов всегда пропускается

library Mouse_mes;
 
uses sysutils, windows, messages;
 
type
    TImageImportDescriptor=packed record
    OriginalFirstThunk: DWORD;
    TimeDateStamp: DWORD;
    ForwarderChain: DWORD;
    Name: DWORD;
    FirstThunk: DWORD;
    end;
    PImageImportDescriptor=^TImageImportDescriptor;
 
var
    hook: HHook = 0;
    PEHeader:PImageNtHeaders;
    ImageBase:cardinal;
 
function InterceptedMessageBoxA(Wnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
var
  S: AnsiString;
f:textfile;
begin
  result := MessageBoxA(HWND(nil), PChar('ffffff'), 'Bla-bla', MB_OK);
end;
 
procedure ProcessImports(PImports:PImageImportDescriptor);
var
    PImport:PImageImportDescriptor;
    PRVA_Import:LPDWORD;
    ProcAddress:pointer;
    Temp_Cardinal:cardinal;
begin
 ProcAddress := GetProcAddress(GetModuleHandle('user32.DLL'), 'MessageBoxA');
 PImport:=PImports;
 while PImport.Name <> 0 do
  begin
   PRVA_Import:=LPDWORD(pImport.FirstThunk+ImageBase);
   while PRVA_Import^ <> 0 do
    begin
     if PPointer(PRVA_Import) ^= ProcAddress then
      begin
       VirtualProtect(PPointer(PRVA_Import),4,PAGE_READWRITE,Temp_Cardinal);
       PPointer(PRVA_Import)^:=@InterceptedMessageBoxA;
       VirtualProtect(PPointer(PRVA_Import),4,Temp_Cardinal,Temp_Cardinal);
      end;
     Inc(PRVA_Import);
    end;
   Inc(PImport);
  end;
end;
 
procedure DllEntryPoint(reason:longint);stdcall;
begin
 case reason of
  DLL_PROCESS_ATTACH:
   begin
    DisableThreadLibraryCalls(hInstance);
    ImageBase := GetModuleHandle(nil);
    PEHeader := pointer(int64(ImageBase) + PImageDosHeader(ImageBase)._lfanew);//pe header
    ProcessImports(pointer(PEHeader.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress+ImageBase));
   end;
 end;
end;
 
function nexthook(code:integer;wParam,lParam:longint):longint;stdcall;
begin
  result:=callnexthookex(hook,code,wParam,lParam);
end;
 
procedure sethook(flag:bool);export; stdcall;
begin
if flag then
begin
 hook:=setwindowshookex(wh_getmessage,@nexthook,hInstance,0);
end else
begin
  unhookwindowshookex(hook);
  hook:=0;
end;
end;
 
exports sethook;
begin
 DLLProc:=@DllEntryPoint;
 DllEntryPoint(DLL_PROCESS_ATTACH);
end.

program FileDeleteHook;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
var
   sethook:procedure(flag:bool)stdcall;
   hDll:hModule;
begin
 hDll:=LoadLibrary('Mouse_mes.dll');
 @sethook:=GetProcAddress(hDll, 'sethook');
 sethook(true);
 readln;
 sethook(false);
 FreeLibrary(hDll);
end.

program test_console8;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
 
const
  AnsiMsg1: AnsiString = 'First Message';
  AnsiMsg2: AnsiString = 'Second Message';
begin
  MessageBoxA(0, PAnsiChar(AnsiMsg1), '', 0);
  MessageBoxA(0, PAnsiChar(AnsiMsg2), '', 0);
  MessageBoxA(0, PAnsiChar(AnsiMsg2), '', 0);
end.