X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/1066f857936e27fbf24d6b96b5be7703a2c0b0bf..4e23b915756617cac9c6c413c14106d066085d74:/lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
index d6e3745..3aafdca 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -417,7 +417,7 @@ begin
     finally
       structurelock.release;
     end;
-    if windowproc <> nil then begin
+    if assigned(windowproc) then begin
       result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam);
     end else begin
       result := -1;