Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r511 -r532
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 511)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 532)
@@ -190,7 +190,7 @@
       fAantalGescand := 0;
       fAantalDnaCodes := length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes);
       fDnaCodeTeller := 0;
-      while fDnaCodeTeller < length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes) do begin
+      while fDnaCodeTeller < fAantalDnaCodes do begin
           if not (fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
             fAantalGescand := fAantalGescand + 1;
           fDnaCodeTeller := fDnaCodeTeller + 1;