Alternativ kannst Du auch meine
InputQueryEx Methode nutzen.
Geschrieben für CodeTyphon (FreePascal), mit ein paar Modifikationen schnurrt das auch unter Delphi.
Bietet viele optionale features
(wie zum Beispiel "unendlich" viele Abfragen innerhalb einer
Query)