X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/03b75b4c964d8b3ac97d4007f0e033549b01c92f..9763940f8849e5c807566157829a1e6d2c9172ee:/wcore.pas

diff --git a/wcore.pas b/wcore.pas
index e79fc10..2c07d50 100644
--- a/wcore.pas
+++ b/wcore.pas
@@ -34,7 +34,7 @@ interface
       initialdone:boolean;
       prevtimer:tltimer;
       nexttimer:tltimer;
-      interval:integer;        {miliseconds, default 1000}
+      interval:integer;        {milliseconds, default 1000}
       nextts:integer;
       property enabled:boolean read fenabled write setenabled;
       constructor create(aowner:tcomponent);override;
@@ -79,7 +79,7 @@ const
 var
   hwndwcore:hwnd;
   firsttimer:tltimer;
-  timesubstract:integer;
+  timesubtract:integer;
   firsttask,lasttask,currenttask:tltask;
 
 procedure tlcomponent.release;
@@ -144,13 +144,13 @@ begin
   end;
 
   tvnow := timegettime;
-  if (tvnow and ((-1) shl rollover_bits)) <> timesubstract then begin
+  if (tvnow and ((-1) shl rollover_bits)) <> timesubtract then begin
     currenttimer := firsttimer;
     while assigned(currenttimer) do begin
       dec(currenttimer.nextts,(1 shl rollover_bits));
       currenttimer := currenttimer.nexttimer;
     end;
-    timesubstract := tvnow and ((-1) shl rollover_bits);
+    timesubtract := tvnow and ((-1) shl rollover_bits);
   end;
   tvnow := tvnow and ((1 shl rollover_bits)-1);
 
@@ -217,7 +217,7 @@ begin
     end else begin
       currenttasklocal := currenttask; //needed in case called from a task
     end;
-    // note i don't bother to sestroy the links here as that will happen when
+    // note i don't bother to destroy the links here as that will happen when
     // the list of tasks is processed anyway
     while assigned(currenttasklocal) do begin
       if currenttasklocal.obj = aobj then begin