Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u -r557 -r558
--- VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 557)
+++ VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 558)
@@ -2,7 +2,6 @@
 
 interface
 
-{ TODO -cnavigatie : NavigeerNaar in interface zetten ter abstractie voor subschermen }
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
@@ -15,7 +14,12 @@
   NAVZOEKPRODUCTEN = 2;
 
 type
-  TFormMain = class(TForm)
+  INavigator = interface
+    ['{1648577B-6F43-4C3D-9122-F4F74D998611}']
+    procedure NavigeerNaar(schermId: Integer);
+  end;
+
+  TFormMain = class(TForm, INavigator)
     PanelMain: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);