cleanup

Quick.Threads.pas

@@ -399,7 +399,6 @@ type
     fCondVar : TSimpleEvent;
     fTaskList : TScheduledTaskList;
     fRemoveTaskAfterExpiration : Boolean;
-    procedure ExpireTask;
   public
     constructor Create(aTaskList : TScheduledTaskList);
     destructor Destroy; override;
@@ -1588,11 +1587,6 @@ begin
   end;
 end;
 
-procedure TScheduler.ExpireTask;
-begin
-
-end;
-
 function TScheduler.Add(aTask: TScheduledTask): Integer;
 begin
   Result := fTaskList.Add(aTask);