Логин и Пароль

[dmitriy68]

Доброго дня!
Пишу программу на 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#10+'осталось попыток '+inttostr(k));
if k=0 then
SpeedButton1.Visible:=True;
end
else if (edit1.Text= a) and (edit2.Text= b) then
begin
showmessage ('Добро пожаловать: Администратор');
Form2.Show;
Form1.Hide;
end;
end;

Мой собственно вопрос.
Но дело в том, что нажатии по кнопке ввода пароля с не правильным Логином и Паролем несколько раз по Button появляется showmesage по счетчику, что Неверно введен логин или пароль-1, при следующем -2 и так далее.
Как можно сделать так что бы сообщение появлялось толь один раз и после этого форма закрывалась.

[knight]

Вместо if k=0 then SpeedButton1.Visible:=True;
поставить Form1.Hide;
Если не нужно предупреждение, то вообще вместо всего первого условия Form1.Hide;

[Алексей_2012]

Вот так пойдет? При успешном вводе пароля форма спрячется и откроется форма2.
P.s. не забудьте закрыть форму 1 программно при закрытии формы 2, иначе будет висеть в процессах.

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string ;
begin
a:='admin';
b:='123';
if (edit1.Text<> a) or (edit2.Text<> b) then

begin
If k=0 then begin
SpeedButton1.Visible:=True;
Showmessage ('попытки были исчерпаны! ПО Будет закрыто...');
Application. Terminate; //exit чтоб просто ничего не происходило...
End;
Dec(k);
showmessage ('Неверно введен логин или пароль'+#13#10+'осталось попыток '+inttostr(k));
exit;
end;

showmessage ('Добро пожаловать: Администратор');
Form2.Show;
Form1.Hide;
end;

[dmitriy68]

Вопрос к Алексей_2012.
Действительно программа висит в процессах. И это неудобно. Я бы сказал не профессионально.
Проблема в строке Form1.Hide;
В Диспетчере задач в Процессах остается запущенное приложение.
Но как это лучше сделать? Как это грамотно реализовать?
Form1.Close; - закрывается сразу все приложение

[evg_m]

не забудьте закрыть форму 1 программно при закрытии формы 2

...