From 4e23b915756617cac9c6c413c14106d066085d74 Mon Sep 17 00:00:00 2001
From: plugwash <plugwash@p10link.net>
Date: Sun, 15 Feb 2009 03:19:42 +0000
Subject: [PATCH 1/1] fix a small error

git-svn-id: file:///svnroot/lcore/trunk@39 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
 lmessages.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.30.2