X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes_ui.inc;h=f91ab1937f2ab50f496803255ebf6ebecbada50e;hb=31d174a428ef1235e1708b0738804b47e006cf5c;hp=0580a475a60f68178a479bf0f942162173155026;hpb=69e1c288d6d270abd835cde8a87e818d0298799f;p=d2df-sdl.git

diff --git a/src/game/g_holmes_ui.inc b/src/game/g_holmes_ui.inc
index 0580a47..f91ab19 100644
--- a/src/game/g_holmes_ui.inc
+++ b/src/game/g_holmes_ui.inc
@@ -15,7 +15,7 @@
  *)
 // ////////////////////////////////////////////////////////////////////////// //
 type
-  THControl = class
+  THControl = class(TPoolObject)
   public
     type TActionCB = procedure (me: THControl; uinfo: Integer);