Bei mir gehts auch problemlos..
Mit d6 folgendne Code verwendet:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
pw: string;
begin
pw := InputBox('Passwort', 'Bitte geben sie das Passwort ein.', '');
while pw <> 'lol' do
pw := InputBox('Passwort', 'Passwort falsch!'+#13+#10+'Nochmal:', '');
end;