Доброго дня! Пишу программу на Delphi 10.2. В моей программе необходимо реализовать ввод Пароля и Логина на Form1 при нажатии по кнопке Button. Исходный код имеет вид. var Form1: TForm1; k:integer=3; implementation {$R *.dfm} uses unit2; procedure TForm1.Button1Click(Sender: TObject); var a,b:string ; begin a:='admin'; b:='123'; if (edit1.Text<> a) or (edit2.Text<> b) then begin k:=k-1; showmessage ('Неверно введен логин или пароль'+#13# ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83727