From 5ae488c0081e9cd8626ab44b4ed327f492fbebab Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Mon, 28 Sep 2015 11:06:43 +0200
Subject: [PATCH] Fixed deletion of chars in prompt()

---
 UCRTHelper.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/UCRTHelper.pas b/UCRTHelper.pas
index d70e038..55d8fc6 100644
--- a/UCRTHelper.pas
+++ b/UCRTHelper.pas
@@ -35,6 +35,7 @@ begin
     if (c = #8) and (Length(Result) > 0) then
     begin
       Write(#8, ' ', #8);
+      SetLength(Result, Length(Result) - 1);
     end
     else if c > #31 then
     begin