Index: VerpakkingsDefinitie/UI/GevondenProductenScherm.pas
===================================================================
diff -u -r565 -r566
--- VerpakkingsDefinitie/UI/GevondenProductenScherm.pas	(.../GevondenProductenScherm.pas)	(revision 565)
+++ VerpakkingsDefinitie/UI/GevondenProductenScherm.pas	(.../GevondenProductenScherm.pas)	(revision 566)
@@ -12,7 +12,7 @@
   ProductsAgent, Main, ApplicationContext;
 
 const
-  GridColNamen: array [1 .. 6] of System.string = ('ProductNr', 'Tekst', 'Kol1', 'Kol2', 'Kol3', 'Kol4');
+  GridColNamen: array [1 .. 5] of string = ('Naam', 'Nummer', 'Stock', '', '');
 
 type
   TFormGevondenProducten = class(TFormSubscherm)
@@ -93,12 +93,12 @@
   begin
     With ListViewProducten.Items.Add Do
     begin
-      Caption := IntToStr(Product.ProductNr); // Deze casting geeft geen access violation
-      SubItems.Add(Product.Tekst);
-      SubItems.Add(Product.Kol1);
+      // Caption := IntToStr(Product.ProductNr); // Deze casting geeft geen access violation
+      Caption := Product.Kol1;
       SubItems.Add(Product.Kol2);
       SubItems.Add(Product.Kol3);
-      SubItems.Add(Product.Kol4);
+      SubItems.Add(Product.Omschrijving1);
+      SubItems.Add(Product.Omschrijving2);
       Data := Product;
     end;
   end;