Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm	(revision 1699)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm	(revision 1700)
@@ -14,5 +14,4 @@
   OnCreate = FormCreate
   OnShow = FormShow
-  ExplicitTop = -69
   ExplicitWidth = 743
   ExplicitHeight = 548
@@ -251,4 +250,6 @@
     ScrollBars = ssBoth
     TabOrder = 0
+    OnKeyDown = RichEdit1KeyDown
+    OnKeyUp = RichEdit1KeyUp
   end
   object btnAbout: TButton [9]
Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas	(revision 1699)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas	(revision 1700)
@@ -84,4 +84,8 @@
     procedure Button1Click(Sender: TObject);
     procedure btnUndoClick(Sender: TObject);
+    procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure RichEdit1KeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     { Private declarations }
@@ -147,4 +151,18 @@
   inherited;
   GoToURL(TLabel(sender).Caption);
+end;
+
+procedure TfrmHunSpell.RichEdit1KeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SpellCheck1.ManualChangeStart;
+end;
+
+procedure TfrmHunSpell.RichEdit1KeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SpellCheck1.ManualChangeDone;
 end;