X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/2940bfc96468965b57663b231695179dbbd3baca..dbfefcf1c7180deedc221f927dd01e8cbf3d6d21:/lcore.pas?ds=inline

diff --git a/lcore.pas b/lcore.pas
index 4be20f4..69da11e 100755
--- a/lcore.pas
+++ b/lcore.pas
@@ -73,8 +73,8 @@ interface
     TSendData          = procedure (Sender: TObject; BytesSent: Integer) of object;
 
     tlcomponent = class(tcomponent)
-    private
-      procedure releasetaskhandler(wparam,lparam:longint);
+    private
+      procedure releasetaskhandler(wparam,lparam:longint);
     public
       procedure release; virtual;
       destructor destroy; override;
@@ -283,15 +283,15 @@ begin
   inherited destroy;
 end;
 
-procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);
-begin
-  free;
-end;
+procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);
+begin
+  free;
+end;
 
 
 procedure tlcomponent.release;
 begin
-  addtask(releasetaskhandler,self,0,0);
+  addtask(releasetaskhandler,self,0,0);
 end;
 
 procedure tlasio.release;