Topic: по паролям
А как правильно написать скрипт для кнопки чтобы при нажатии ее выскакивало сообщение введите пароль а при не правильном вводе всплывало сообщение неверный пароль? У меня не работает...
procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
if InputBox ('Запрос','Введите пароль','') <> '111' then Cancel := True
else MessageDlg('Неверный пароль', mtError, mbOk, 0);
end;