From 05d527693b1cb129fb2fac25c4fc8b6cae5dd709 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 10 Sep 2023 23:14:19 +0200
Subject: [PATCH] Class Destructor

---
 packages/rtl/webrouter.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/webrouter.pp b/packages/rtl/webrouter.pp
index 4b9a683..0a0add1 100644
--- a/packages/rtl/webrouter.pp
+++ b/packages/rtl/webrouter.pp
@@ -206,7 +206,7 @@ Type
 
   TRouter = Class(TComponent)
   Private
-    Class Procedure DoneService;
+    Class Destructor DoneService;
     Class
       Var FService : TRouter;
           FServiceClass : TRouterClass;
@@ -585,7 +585,7 @@ begin
     Result:=History.Kind;
 end;
 
-class procedure TRouter.DoneService;
+class destructor TRouter.DoneService;
 begin
   FreeAndNil(FService);
 end;