X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/5131f0f4f11d06c8d638c798dc1445fa52092510..976ec95a74549719adef1a27df9a1a04f45a0ec7:/lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
index 9807e42..e17ccfe 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -494,7 +494,7 @@ end;
 
 function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): WINBOOL;
 begin
-  result := getmessageinternal(lpmsg,hwnd,wmsgfiltermin,wmsgfiltermax,PM_REMOVE,true);
+  result := getmessageinternal(lpmsg,hwnd,wmsgfiltermin,wmsgfiltermax,wRemoveMsg,true);
 end;
 
 function SetEvent(hEvent:THevent):WINBOOL;