diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas
index 3ae82a1..1e3a393 100644
--- a/lib/delphi/test/TestServer.pas
+++ b/lib/delphi/test/TestServer.pas
@@ -55,7 +55,7 @@
         procedure TestStop;
       end;
 
-      TTestHandlerImpl = class( TInterfacedObject, ITestHandler )
+      TTestHandlerImpl = class( TInterfacedObject, ITestHandler, TThriftTest.Iface)
       strict private
         FServer : IServer;
       strict protected
diff --git a/tutorial/delphi/DelphiServer/DelphiServer.dpr b/tutorial/delphi/DelphiServer/DelphiServer.dpr
index 5f2dc45..6b8e115 100644
--- a/tutorial/delphi/DelphiServer/DelphiServer.dpr
+++ b/tutorial/delphi/DelphiServer/DelphiServer.dpr
@@ -41,7 +41,7 @@
 
 
 type
-  TCalculatorHandler = class( TInterfacedObject, TCalculator.Iface)
+  TCalculatorHandler = class( TInterfacedObject, TSharedService.Iface, TCalculator.Iface)
   protected
     FLog : TDictionary< Integer, ISharedStruct>;