Eine Lösung für Delphi XE und aufwärts besteht darin, dem InputQuery() Aufruf im zweiten Parameter ein #31 voranzustellen.
Code:
if InputQuery('Caption', #31 + 'Bitte geben Sie das Passwort ein', strIrgendEineVariable ) then
begin
// Rückgabe prüfen....
if strIrgendEineVariable = '' then
// Was auch immer
end;
Gruß
Christian