MsgRec consistency

git-svn-id: file:///svnroot/lcore/trunk@91 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/wcore.pas b/wcore.pas
index 8b402b5cccdcaaf4daf9bfd2a2831b93a5cfb8e3..1c063ada17a45f026c1757741d1259fbd5331e53 100755 (executable)
--- a/wcore.pas
+++ b/wcore.pas
@@ -359,13 +359,13 @@ end;
 \r
 function ProcessMessage : Boolean;\r
 var\r
 \r
 function ProcessMessage : Boolean;\r
 var\r

-    Msg : TMsg;\r
+    MsgRec : TMsg;\r

 begin\r
     Result := FALSE;\r
 begin\r
     Result := FALSE;\r

-    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin\r
+    if PeekMessage(MsgRec, 0, 0, 0, PM_REMOVE) then begin\r

       Result := TRUE;\r
       TranslateMessage(MsgRec);\r
       Result := TRUE;\r
       TranslateMessage(MsgRec);\r

-      DispatchMessage(Msg);\r
+      DispatchMessage(MsgRec);\r

     end;\r
 end;\r
 \r
     end;\r
 end;\r
 \r