* Fix compiler hint, destroy thread support when done

packages/wasi/src/rtl.workerthreadhost.pas

@@ -41,6 +41,7 @@ Type
     procedure HandleRpcCommand(aCmd: TWorkerRpcCommand); virtual;
   Public
     constructor create(aOwner : TComponent); override;
+    destructor destroy; override;
   end;
 
 
@@ -147,6 +148,12 @@ begin
   TCommandDispatcher.Instance.DefaultSenderID:=lWorker;
 end;
 
+destructor TWorkerThreadControllerApplication.destroy;
+begin
+  FreeAndNil(FThreadSupport);
+  inherited destroy;
+end;
+
 procedure TWorkerThreadControllerApplication.RegisterMessageHandlers;
 
 begin