1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/inputquerydialog.inc b/src/gui/inputquerydialog.inc
index e7769246..094a58e2 100644
--- a/src/gui/inputquerydialog.inc
+++ b/src/gui/inputquerydialog.inc
@@ -48,8 +48,10 @@ begin
   try
     dlg.WindowTitle := ACaption;
     dlg.lblText.Text := APrompt;
+    dlg.edtText.Text := Value;
     Result := dlg.ShowModal = mrOK;
-    Value := dlg.edtText.Text;
+    if Result then
+      Value := dlg.edtText.Text;
   finally
     dlg.Free;
   end;