diff --git a/UCRTHelper.pas b/UCRTHelper.pas
index 55d8fc6..6dbc240 100644
--- a/UCRTHelper.pas
+++ b/UCRTHelper.pas
@@ -17,7 +17,7 @@ implementation
 
 function Prompt(ACaption: String; AMode: TPromptMode): String;
 begin
-  Prompt(ACaption, '', AMode);
+  Result := Prompt(ACaption, '', AMode);
 end;
 
 function Prompt(ACaption, ADefault: String; AMode: TPromptMode): String;