Index: cprs/branches/HealthSevak-CPRS/VA/VA2006Utils.pas
===================================================================
--- cprs/branches/HealthSevak-CPRS/VA/VA2006Utils.pas	(revision 1694)
+++ cprs/branches/HealthSevak-CPRS/VA/VA2006Utils.pas	(revision 1695)
@@ -4,5 +4,18 @@
 
 uses
-  Windows, Messages, SysUtils, Classes, Controls, ComCtrls, CommCtrl;
+  Windows, Messages, SysUtils, Classes, Controls, ComCtrls, CommCtrl,
+  Forms;
+
+type
+
+  //This class exists to workaround TFrame tabstop set to True
+  //Known defect with Delphi 2006: http://qc.embarcadero.com/wc/qcmain.aspx?d=12257
+  TfraTabStopFalse = class(TFrame)
+  private
+    function GetTabStop: Boolean;
+    procedure SetTabStop(const Value: Boolean);
+  published
+    property TabStop: Boolean read GetTabStop write SetTabStop stored False;
+  end;
 
 // Fixes bug in Delphi 2006, where clicking on a header control section after
@@ -16,4 +29,5 @@
 
 type
+
   THeaderControl2006BugFixer = class(TComponent)
   private
@@ -65,3 +79,15 @@
 end;
 
+{ TfraTabStopFalse }
+
+function TfraTabStopFalse.GetTabStop: Boolean;
+begin
+  Result := False;
+end;
+
+procedure TfraTabStopFalse.SetTabStop(const Value: Boolean);
+begin
+ //Do nothing here, just ignore the Value
+end;
+
 end.
Index: cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/JAWS/JAWS.bdsproj
===================================================================
--- cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/JAWS/JAWS.bdsproj	(revision 1694)
+++ cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/JAWS/JAWS.bdsproj	(revision 1695)
@@ -171,9 +171,5 @@
 			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-		</VersionInfoKeys>  
-    
-    
-    
-    <Excluded_Packages>
+		</VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="D:\perforce\cprs\main\Packages\ORDateLib2006.bpl">CPRS Date/Time Dialogs</Excluded_Packages>
     </Excluded_Packages>
Index: cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/VA508Access2006.dpk
===================================================================
--- cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/VA508Access2006.dpk	(revision 1694)
+++ cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/VA508Access2006.dpk	(revision 1695)
@@ -27,5 +27,5 @@
 {$DESCRIPTION 'VA Section 508 Accessibility'}
 {$DESIGNONLY}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
 {$DEFINE DEBUG_ACCESSIBILITY_MANAGER}
 
@@ -35,6 +35,6 @@
   vcldb,
   VclSmp,
-  VAShared2006,
-  rtl;
+  rtl,
+  VAShared2006;
 
 contains
Index: cprs/branches/HealthSevak-CPRS/VA/VAUtils.pas
===================================================================
--- cprs/branches/HealthSevak-CPRS/VA/VAUtils.pas	(revision 1694)
+++ cprs/branches/HealthSevak-CPRS/VA/VAUtils.pas	(revision 1695)
@@ -1,4 +1,4 @@
 unit VAUtils;
-                       
+
 {TODO  -oJeremy Merrill -cMessageHandlers : Change component list to use hex address for uComponentList
 search instead of IndexOfObject, so that it used a binary search
@@ -19,5 +19,6 @@
 function ShowMsg(const Msg, Caption: string; Icon: TShow508MessageIcon = smiNone;
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
-function Show508Message(const Msg: string): TShow508MessageResult;
+
+function Show508Message(Const Msg: String): TShow508MessageResult;
 function ShowMsg(const Msg: string; Icon: TShow508MessageIcon = smiNone;
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
