diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index b8a03c2c2a..f0c507669f 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -229,6 +229,7 @@ type
     
     // selections
     Procedure SelectText(LineNum,CharStart,LineNum2,CharEnd : Integer);
+    procedure ReplaceLines(StartLine, EndLine: integer; const NewText: string);
     procedure UpperCaseSelection;
     procedure LowerCaseSelection;
     procedure TabsToSpacesInSelection;
@@ -1705,6 +1706,16 @@ Begin
   FEditor.BlockEnd := P;
 end;
 
+procedure TSourceEditor.ReplaceLines(StartLine, EndLine: integer;
+  const NewText: string);
+begin
+  FEditor.BeginUndoBlock;
+  FEditor.BlockBegin:=Point(1,StartLine);
+  FEditor.BlockEnd:=Point(length(FEditor.Lines[Endline-1])+1,EndLine);
+  FEditor.SelText:=NewText;
+  FEditor.EndUndoBlock;
+end;
+
 Function TSourceEditor.GetModified : Boolean;
 Begin
   Result := FEditor.Modified or FModified;