Index: /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas	(revision 1719)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas	(revision 1720)
@@ -83,5 +83,5 @@
     FIgnoreWordWdigits: boolean;
     FIgnoreCaps: boolean;
-
+    FOptionsKey: String;
     function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
                                                             overload; virtual;
@@ -372,4 +372,7 @@
    FUndoList := TStringList.Create;
 
+   FOptionsKey := '\software\'
+                + ChangeFileExt(ExtractFileName(Application.ExeName),'')
+                + '\skaHunSpellCheckOptions';
    if csDesigning in componentState then
    begin
@@ -439,5 +442,5 @@
 
  //first get the dicationary file name
-  Reg.OpenKey('\software\'+ ChangeFileExt(Application.ExeName,'') + '\skaHunSpellCheckOptions',True);
+  Reg.OpenKey(FOptionsKey,True);
   if reg.ValueExists('DicFileName')  then
     DictionaryFileName:=Reg.readString('DicFileName')
@@ -529,4 +532,5 @@
      i: Integer;
    begin
+     Result := False;
      if IgnoreAllCaps then
      begin
@@ -878,5 +882,5 @@
 
 
-  Reg.OpenKey('\software\'+ ChangeFileExt(Application.ExeName,'') + '\skaHunSpellCheckOptions',True);
+  Reg.OpenKey(FOptionsKey,True);
 
   //first save the dicationary file name