fix a small error

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

diff --git a/lmessages.pas b/lmessages.pas
index d6e3745b770868fe5746fedb1bfb3f9c2a049437..3aafdca70b52e0287a725a50fa36f4cd371502a3 100755 (executable)
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -417,7 +417,7 @@ begin
     finally\r
       structurelock.release;\r
     end;\r
     finally\r
       structurelock.release;\r
     end;\r

-    if windowproc <> nil then begin\r
+    if assigned(windowproc) then begin\r

       result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam);\r
     end else begin\r
       result := -1;\r
       result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam);\r
     end else begin\r
       result := -1;\r