Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r396 -r403
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 396)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 403)
@@ -6,6 +6,13 @@
   DnaCodeService, GebruikerService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
 
 type
+{$M+}
+  IAgent = interface(IInvokable)
+  ['{3bedb3a0-3f59-4586-b3a8-80ff61cf8b1c}']
+    procedure GeefVolgendeTbpCodeprocedure();
+    function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
+  end;
+  {$M-}
   TAgent = class
   private
     fUiContext: TUiContext;
@@ -128,6 +135,7 @@
   Request: GeefVolgendeTbpCodeRequest;
   Header: DnaCodeService.RequestHeader;
 begin
+  Result := GeefVolgendeTbpCodeResponse.Create;
   Request := GeefVolgendeTbpCodeRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try