diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 1627a629..c5fa3198 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -43,6 +43,7 @@ type
   protected
     procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
+    procedure KeyUp(var Key: Word; Shift: TShiftState); override;
     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
@@ -298,9 +299,6 @@ end;
 
 procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
 begin
-  if Key in [VK_PRIOR, VK_NEXT] then
-    fPositions.store;
-  //
   inherited;
   identifierToD2Syn;
   //
@@ -311,6 +309,13 @@ begin
   end;
 end;
 
+procedure TCESynMemo.KeyUp(var Key: Word; Shift: TShiftState);
+begin
+  if Key in [VK_PRIOR, VK_NEXT, Vk_UP] then
+    fPositions.store;
+  inherited;
+end;
+
 procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
 begin
   inherited;