Вывод ошибки при неправильном вводе пароля

[Arinka]

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Form4.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то
if Edit1.Text='1' then //если набран необходимый пароль, то
begin
Form1.Show; //показать главное окно
Exit; //выйти из этой процедуры
end;
Application.Terminate; { если все вышеуказанные условия не выполняются, то остановить программу }
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Close; //закрыть это окно
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
Form4.ModalResult:=mrOk; //результат работы этого окна
Close; //закрыть это окно
end;

end;

На форме имеется Edit и 2 кнопки BitBtn (ОК и Отмена). Мне нужно, чтобы пользователю при неправильном вводе пароля выводилось сообщение о неправильности пароля.
Подскажите пожалуйста код, и в какую строчку его вставить (в данном примере)???

[Terran]

...
if Edit1.Text='1' then //если набран необходимый пароль, то
begin
Form1.Show; //показать главное окно
Exit; //выйти из этой процедуры
End
Else
ShowMessage('Ошибка!');
End;
...

[DomiNick]

Взято где-то в сети (не помню где ):

Program Project1;

Uses Forms, Dialogs, Unit1 In 'Unit1.pas' {Form1};

{$R *.res}

Begin
If InputBox('Enter Password!','Enter Password!','')='parol' Then
      Begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
      End
Else
      MessageDlg('Wrong Password!', mtWarning, [mbOK], 0);
End.

[Arinka]

Ввожу неправильный пароль, выходит сообщение. При закрытии этого сообщения окно полностью закрывается. А как сделать, чтобы оно оставалось?

[DomiNick]

Зачем?

Или вы хотите чтоб программа выпрашивала пароль до тех пор пока не отгадаешь?

[Terran]

Я согласен с DomiNick. Но если очень нужно, то уберите

Application.Terminate;

И посмотрите ещё

var Action: TCloseAction

Возможно, надо будет написать

Action:=CaNone;

[Grag]

Вот кусок кода моей реализации:

procedure TPswLogFrm.BtnOkClick(Sender: TObject);
begin
  SetWindowPos( Handle, HWND_NOTOPMOST, Left, Top, Width, Height,
                                  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
  if (Log<>edLogin.Text) or (Psw<>edPsw.Text) then
    begin
      MessageBox(0,'Неверный логин или пароль.','Ошибка ввода!',mb_Ok);
      edLogin.Text:='';
      edPsw.Text:='';
      edLogin.SetFocus;
      Inc(Count);
      if Count<3
        then
          begin
            StatusBar.Panels[0].Text:=' Осталось попыток - '+IntToStr(3-Count);
            Application.ProcessMessages;
            Exit
          end
        else Application.Terminate
    end;
  MainFrm.Visible:=true;
  PswLogFrm.Visible:=false;
end;

А вот скриншот
Screenshot - 12.06.jpg