diff --git a/ide/main.pp b/ide/main.pp
index f2f5a3e641..e9ae000ac8 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -924,9 +924,6 @@ type
     procedure DoFindDeclarationAtCaret(const LogCaretXY: TPoint);
     function DoFindRenameIdentifier(Rename: boolean): TModalResult;
     function DoFindUsedUnitReferences: boolean;
-    function DoReplaceUnitUse(OldFilename, OldUnitName,
-                              NewFilename, NewUnitName: string;
-                              IgnoreErrors, Quiet, Confirm: boolean): TModalResult;
     function DoShowAbstractMethods: TModalResult;
     function DoRemoveEmptyMethods: TModalResult;
     function DoRemoveUnusedUnits: TModalResult;
@@ -13110,14 +13107,6 @@ begin
     MainIDEBar.mnuMainMenu.ShortcutHandled := false;
 end;
 
-function TMainIDE.DoReplaceUnitUse(OldFilename, OldUnitName, NewFilename,
-  NewUnitName: string; IgnoreErrors, Quiet, Confirm: boolean): TModalResult;
-// Replaces all references to a unit
-begin
-  Result := SourceFileMgr.ReplaceUnitUse(OldFilename, OldUnitName, NewFilename,
-                                           NewUnitName, IgnoreErrors, Quiet, Confirm);
-end;
-
 procedure TMainIDE.StartProtocol;
 begin
   IDEProtocolOpts:=TIDEProtocol.Create;