diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 7ee6a53278..e8d94aeb85 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -2584,6 +2584,7 @@ begin
   EditorComponent.LogicalCaretXY:=LogCaret;
   EditorComponent.SearchReplace(EditorComponent.GetWordAtRowCol(LogCaret),
                                 '',Flags);
+  CenterCursor(True);
 end;
 
 function TSourceEditor.DoFindAndReplace(aFindText, aReplaceText: String;