Index: PlanScan/Main.dfm
===================================================================
diff -u -r260 -r261
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 260)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 261)
@@ -1,7 +1,7 @@
-object Form2: TForm2
+object fmMain: TfmMain
   Left = 0
   Top = 0
-  Caption = 'Form2'
+  Caption = 'PlanScan'
   ClientHeight = 336
   ClientWidth = 635
   Color = clBtnFace
@@ -22,29 +22,44 @@
       000001004F0300004F0300000000000001010C5175657279204C6F6F6B757000
       00000000FFFFFFFF}
   end
-  object DBGrid1: TDBGrid
-    Left = 168
-    Top = 128
-    Width = 465
-    Height = 120
-    DataSource = DataSource1
-    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
+  object tcMain: TTabControl
+    Left = 0
+    Top = 0
+    Width = 635
+    Height = 336
+    Align = alClient
     TabOrder = 1
-    TitleFont.Charset = DEFAULT_CHARSET
-    TitleFont.Color = clWindowText
-    TitleFont.Height = -11
-    TitleFont.Name = 'Tahoma'
-    TitleFont.Style = []
+    Tabs.Strings = (
+      'DnaCodes')
+    TabIndex = 0
+    ExplicitTop = 8
+    ExplicitWidth = 609
+    ExplicitHeight = 193
+    object DBGrid1: TDBGrid
+      Left = 4
+      Top = 24
+      Width = 627
+      Height = 308
+      Align = alClient
+      DataSource = DataSource1
+      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
+      TabOrder = 0
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+    end
+    object Button1: TButton
+      Left = 3
+      Top = 308
+      Width = 75
+      Height = 25
+      Caption = 'Button1'
+      TabOrder = 1
+      OnClick = Button1Click
+    end
   end
-  object Button1: TButton
-    Left = 56
-    Top = 272
-    Width = 75
-    Height = 25
-    Caption = 'Button1'
-    TabOrder = 2
-    OnClick = Button1Click
-  end
   object DataSource1: TDataSource
     DataSet = ClientDataSet1
     Left = 248