Index: /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaHunSpellChecker.dproj
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaHunSpellChecker.dproj	(revision 1693)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaHunSpellChecker.dproj	(revision 1694)
@@ -41,12 +41,6 @@
       
       
-      
-      
-      
-      
-      
-      
-      
-      <Excluded_Packages Name="E:\Hans SpellCheck\Bin\skaHunSpellChecker.bpl">File E:\Hans SpellCheck\Bin\skaHunSpellChecker.bpl not found</Excluded_Packages>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\XWB_R2007.bpl">VistA RPC Broker Runtime Package</Excluded_Packages>
+      <Excluded_Packages Name="E:\WVEHR\branches\HealthSevak-CPRS\BDK50\Packages\XWB_D2007.bpl">File E:\WVEHR\branches\HealthSevak-CPRS\BDK50\Packages\XWB_D2007.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">skaHunSpellChecker.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
Index: /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas	(revision 1693)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas	(revision 1694)
@@ -70,4 +70,5 @@
     FHighlightEdit: TEdit;
     FbtnClose: TButton;
+    FTxtBeforeManualEdit: String;
     function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
                                                             overload; virtual;
@@ -87,5 +88,5 @@
     procedure ReplaceCurrentWordWith(const aNewWord: String);
     function GetAboutThis: String;
-    procedure SaveForUndo(const Ignoring: Boolean = False);
+    procedure SaveForUndo(const Ignoring: Boolean=False);
   public
     constructor Create(AOwner: TComponent); overload; override;
@@ -106,6 +107,9 @@
     procedure IgnoreOnce;
     function IsMisspelled(const AWord: string): Boolean; dynamic;
+    procedure ManualChangeStart;
+    procedure ManualChangeDone;
     function Open:Boolean; virtual;
     function ReStart: Boolean; virtual;
+
     function Undo: Boolean;
 
@@ -204,5 +208,4 @@
   full: String;
   prefix: string;
-  current: string;
   suffix: string;
 begin
@@ -588,4 +591,17 @@
 end;
 
+procedure TskaHunSpellChecker.ManualChangeDone;
+begin
+  if trim(FTxtBeforeManualEdit) = '' then
+    exit;
+  FUndoList.Add(FTxtBeforeManualEdit);
+  ReStart;
+end;
+
+procedure TskaHunSpellChecker.ManualChangeStart;
+begin
+  FTxtBeforeManualEdit := FSourceEdit.Text;
+end;
+
 function TskaHunSpellChecker.Open: Boolean;
 var