X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/eca2c8e0a8aad79c7dc7738346d265f973428995..2c3a30778bb5a281c10736470058b5a63575a516:/lcore.pas?ds=sidebyside

diff --git a/lcore.pas b/lcore.pas
index f47bdab..08c242a 100644
--- a/lcore.pas
+++ b/lcore.pas
@@ -225,7 +225,7 @@ procedure exitmessageloop;
 
 var
   firsttimer                            : tltimer    ;
-  firsttask  , lasttask   , currenttask : tltask     ;
+  firsttask  , lasttask                 : tltask     ;
 
   numread                               : integer    ;
   mustrefreshfds                        : boolean    ;
@@ -812,6 +812,8 @@ end;
 {$endif}
 
 procedure processtasks;//inline;
+var
+  currenttask:tltask;
 begin
 
   while assigned(firsttask) do begin
@@ -820,7 +822,7 @@ begin
     if not assigned(firsttask) then lasttask := nil;
 
     if assigned(currenttask.handler) then currenttask.handler(currenttask.wparam,currenttask.lparam);
-
+    currenttask.free;
   end;
   currenttask := nil;
 end;