diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas
index 56d1e0103c..c8d529dd01 100644
--- a/converter/convertdelphi.pas
+++ b/converter/convertdelphi.pas
@@ -767,7 +767,7 @@ begin
     end;
     if not fSettings.AutoReplaceUnits then begin
       // Edit, then remove or replace units.
-      Result:=EditMap(MapToEdit, 'Units to rename or remove.');
+      Result:=EditMap(MapToEdit, 'Units to replace in '+ExtractFileName(fOrigUnitFilename));
       if Result<>mrOK then exit;
       // Iterate the map and rename / remove.
       Node:=MapToEdit.Tree.FindLowest;