Index: PlanScan/Main.dfm
===================================================================
diff -u -r259 -r260
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 259)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 260)
@@ -45,30 +45,11 @@
     TabOrder = 2
     OnClick = Button1Click
   end
-  object ResultSet1: TResultSet
-    AutoConnect = True
-    ConnectKind = ckRunningOrNew
-    Left = 240
-    Top = 208
-  end
   object DataSource1: TDataSource
     DataSet = ClientDataSet1
     Left = 248
     Top = 160
   end
-  object Utils1: TUtils
-    AutoConnect = False
-    ConnectKind = ckRunningOrNew
-    Left = 360
-    Top = 104
-  end
-  object Table1: TTable
-    AutoRefresh = True
-    DatabaseName = 'CACHE2010V2 User'
-    TableName = 'DeepSee_Study.City'
-    Left = 104
-    Top = 56
-  end
   object ClientDataSet1: TClientDataSet
     Aggregates = <>
     Params = <>
Index: PlanScan/Main.pas
===================================================================
diff -u -r259 -r260
--- PlanScan/Main.pas	(.../Main.pas)	(revision 259)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 260)
@@ -10,12 +10,9 @@
 
 type
   TForm2 = class(TForm)
-    ResultSet1: TResultSet;
     DataSource1: TDataSource;
-    Utils1: TUtils;
     CacheQuery1: TCacheQuery;
     DBGrid1: TDBGrid;
-    Table1: TTable;
     ClientDataSet1: TClientDataSet;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
@@ -57,10 +54,8 @@
       ClientDataSet1.FieldDefs.Add('Toelevering',ftString,10);
       ClientDataSet1.CreateDataSet;
 
-      //DnaCodesStringList := TStringList.Create();
       ii := 0;
       while ii <= length(DnaCodes)-1 do begin
-        //DnaCodesStringList.Add(DnaCodes[ii].DnaCode);
         ClientDataSet1.InsertRecord([DnaCodes[ii].DnaCode, DnaCodes[ii].PalletCode, DnaCodes[ii].Toelevering]);
         ii := ii + 1;
       end;