Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r529 -r537
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 529)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 537)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  Images;
+  Images, Classes;
 
 const
   mrLogin               = 101;
@@ -40,6 +40,8 @@
     fFormBreedte: integer;
     fFormHoogte: integer;
     fLaatsteDnaCodeGoedAfgemeld: boolean;
+    fLaatstAfgemeldeDnaCodesStringList: TStringList;
+    fAfTeDrukkenDnaCodesStringList: TStringList;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -60,6 +62,8 @@
     Property FormBreedte: integer Read fFormBreedte Write fFormBreedte;
     Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
     Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
+    Property LaatstAfgemeldeDnaCodesStringList: TStringList Read fLaatstAfgemeldeDnaCodesStringList Write fLaatstAfgemeldeDnaCodesStringList;
+    Property AfTeDrukkenDnaCodesStringList: TStringList Read fAfTeDrukkenDnaCodesStringList Write fAfTeDrukkenDnaCodesStringList;
   end;
 
 implementation
Index: ProScan/ProScanMain.pas
===================================================================
diff -u -r488 -r537
--- ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 488)
+++ ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 537)
@@ -51,6 +51,8 @@
   fUiContext := TUiContext.Create();
   fUiContext.ImagesScherm := TImagesScherm.Create(self);
   fUiContext.Modus := modusDefault;
+  fUiContext.LaatstAfgemeldeDnaCodesStringList := TStringList.Create();
+  fUiContext.AfTeDrukkenDnaCodesStringList := TStringList.Create();
 
   VerwerkParamStrings;
 end;