X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/0cf8242b7bb005541896b8ab6363b147ff22f454..5131f0f4f11d06c8d638c798dc1445fa52092510:/lmessages.pas diff --git a/lmessages.pas b/lmessages.pas index 3aafdca..9807e42 100755 --- a/lmessages.pas +++ b/lmessages.pas @@ -409,11 +409,11 @@ begin //we have to get the window procedure while the structurelock //is still held as the window could be destroyed from another thread //otherwise. - if window <> nil then begin + if window <> nil then begin windowproc := window.windowproc; - end else begin - windowproc := nil; - end; + end else begin + windowproc := nil; + end; finally structurelock.release; end;