Delphi 7 - 如何使用输入框

我正在编写一个程序，您必须在输入框中输入密码才能访问该程序的最小功能。但是，如果您单击输入框中的“取消”，我的程序会出现错误消息。所以我想知道是否有人知道我如何才能做到这一点，因为通过 Messagedlg 我知道你使用 IF 。但是我怎样才能用 InputBox 得到它呢？

InputBox()如果取消对话框，则返回空字符串，例如：

var
  Pass: String;

Pass := InputBox('Password needed', 'Enter the password:');
if Pass <> '' then
begin
  // use Pass as needed...
end;

或者，使用InputQuery()相反，它返回一个Boolean指示对话框是否被取消，例如：

var
  Pass: String;

if InputQuery('Password needed', 'Enter the password:', Pass) then
begin
  // use Pass as needed...
end;