diff --git a/components/mrumenu/mrumanager.pp b/components/mrumenu/mrumanager.pp
index 893760f12d..d13b3dcf29 100644
--- a/components/mrumenu/mrumanager.pp
+++ b/components/mrumenu/mrumanager.pp
@@ -477,7 +477,10 @@ begin
   With (Sender as TRecentMenuItem) do
     FN:=FileName;
   if (FN<>'') and (OnRecentFile<>Nil) then
+    begin
     OnRecentFile(Self,FN);
+    AddToRecent(FN); // Gets moved to the top
+    end;
 end;
 
 end.