delphi 三个消息函数的威力

InputBox,InputQuery和ShowMessage函数的应用:

uses dialogs;
var s,s1:string;
b:boolean;
begin
s:=trim(Inputbox('NewPassword','Password','masterkey'));
b:=s<>'';
s1:=s;
if b then
b:=InputQuery('Confirm Password','Password',s1);
if not b or (s1<>s) then
ShowMessage('Password Failed');
end;

将以上代码运行一下，看看是什么效果？