procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := ''; if TMultiInputBox.PasswordInputBox(Self, 'Password', 'Please enter your password:', str) then ShowMessageFmt('You entered %s.', [str]); end;