Fixed missing result

This commit is contained in:
Andreas Schneider 2015-09-28 11:09:59 +02:00
parent 5ae488c008
commit 46a87b3e0c
1 changed files with 1 additions and 1 deletions

View File

@ -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;